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Response Under 37 CFR § 1.116 
Expedited Procedure - Examining Group 2157 



PATENT 



IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



Appl. No. 
Applicant 
Filed 



TC/A.U. 
Examiner 
Docl<et No 



Customer No. 



09/489,759 
Brian STYLES 
January 21, 2000 
2157 

Saleli NAJJAR 

570-A00-001 

23334 



Confirmation No. 6224 



JUL 0 9 2004 

Technology Cente.''2100 



RECEIVED 



37 C.F.R. 1.131 AFFIDAVIT 



!, the undersigned, the inventor of the above-referenced patent application, hereby 
declare the following: 

1) The pending claims of our above identified patent invention were rejected under 
35 U.S.C. 102(e) and 35 U.S.C. §1 03(a) based on the prior art reference of 
Bourke-Dunphy et aL (U.S. 6,449,642) with a effective filing date of September 
15, 1998 based (hereinafter referred to as "Bourke"). 

2) The Invention described in the above-referenced patent application was reduced 
to a writing by a software contractor Charles B. Bucklew that I hired prior to the 
September 15, 1998 date of Bourke. In particular, a partial listing of software 
modules and the contents of three source code modules (splashscreen.h; 
scriptm.cpp; and scriptmdig.cpp) each with dates of original creation prior to 
September 15, 1998 are attached hereto. This code has been diligently worked 
on to carry out this invention from prior to September 15, 1998 through the 
January 21, 1999, after which date, the first public release of the code was 
made. This product has enjoyed great commercial success and has led to the 
formation of the company ScriptLogic Corporation in Boca Raton, Florida with 
sales of over 10 million dollars in 2003. 
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I, the undersigned, declare all of the above statements are made on our own 
knowledge, the above statements are true and correct, and the above statements are 
made on infonnation that we believe to be tnje. I understand that false statements or 
concealment in obtaining a patent will subject us to fine and/or imprisonment or both 
(18 U.S.C. §1001) and may jeopardize the validity of the above identified patent 
application or any application issuing therefrom. 




June 3^2004 
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PATENT 



IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



TC/A.U. 
Examiner 
Docket No 



Appl. No. 
Applicant 
Filed 



Customer No. 



09/489,759 
Brian STYLES 
January 21, 2000 
2157 

Saleh NAJJAR 

570-AOO-001 

23334 



Confirmation No. 6224 



37 C.F.R. 1.131 AFFIDAVIT 



I, the undersigned, hereby declare the following: 

1 ) My name is Charles B. Bucklew. 

2) I am 24 years of age. 

3) I reside at 1 1096 N.W. 9th Court, Plantation. Florida 33324 

4) I am a citizen of the United States of America. 

5) I currently work as a programmer for ScriptLogic Corporation. 

6) I am the co-inventor on four pending patents applications. 

7) I have 1 0 years of experience working as a programmer. 

8) I have reviewed the above-identified application and Bourke-Dunphy et al. 
(U.S. 6,449,642) with a effective filing date of September 15, 1998 based 
(hereinafter refen^ed to as "Bourke"). 
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8) I have reviewed the above-identified application and the Bourke-Dunphy 
et al. (U.S. 6.449,642) with a effective filing date of September 1 5, 1998 
based (hereinafter refered to as "Bourke"),. 

9) I was hired as a contractor by Brian Styles prior to September 15. 1998 to begin 
writing software code to implement the above-referenced patent application. A 
partial listing of software modules and the contents of three source code modules 
(splashscreen.h; scriptm.cpp; and scriptmdig.cpp) each with dates of original 
creation prior to September 15, 1998 are attached hereto. I have diligently worked 
on this code to canry out this invention from prior to September 1 5, 1 998 through the 
end of January 21 . 1999, after which date the first public release of the code was 
made. This product has enjoyed great commercial success and has led to the 
formation of the company ScriptLogic Corporation in Boca Raton, Florida with sales 
of over 10 million dollars in 2003. 

I, the undersigned, hereby declare that all statements made herein are of my own 
knowledge and are true and that all statements made on information and belief are 
believed to be true; and further that these statements were made with the 
knowledge that willful false statements and the like so made are punishable by fine 
or imprisonment, or both, under 18 U.S.C. §1001 and that such willful false 
statements may jeopardize the validity of the application or any patent issued 
thereon. 
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EXHIBIT FOR AFFIDAVITS 



list.txt 

1. KIX 

19981230. CSV 

19981231. CSV 
19990 101. CSV 

2. KIX 
A 

A.KIX 
A.SCR 

ACCACC.CPP 

ACCACC.H 

ACCOUNT.CPP 

ACCOUNT.H 

ADF.KIX 

Advanced, cpp 

Advanced.h 

AntiV.cpp 

AntiV.h 

AppLauncher.cpp 

AppLauncher.h 

AppLauncherData . cpp 

AppLauncherData . h 

ASDF.KIX 

AssignScript.cpp 

AssignScript.h 

BitBut.cpp 

BitBut.h 

BitBut2.cpp 

BitBut2.h 

CALENDAR.CPP 

CALENDAR.H 

calendar!. cpp 

calendar!. h 

CDRAW 

CHKLIST.TXT 

ColorStaticST.cpp 

ColorStaticST.h 

COMMON.RTF 

commonD.cpp 

commonD.h 

commonP.cpp 

commonP.h 

commons. cpp 

commons. h 

CreateMAPI.kix 

CUSTOM.KIX 
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list.txt 

custom_radio_buttons,zip 

DACLWRAP.CPP 

DACLWRAP.H 

DD.KIX 

Drives. cpp 

Drives.h 

DrivesData.cpp 

DrivesData.h 

DynVarChooserxpp 

DynVarChooser.h 

EditCustomScripts.cpp 

EditCustomScripts.h 

EditMBox.cpp 

EditMBox.h 

EditorPaths.cpp 

EditorPaths.h 

EditTargetList.cpp 

EditTargetList.h 

ENCRYPT.EXE 

ENGINE.DLL 

EnvData.cpp 

EnvData.h 

Environ.cpp 

Environ.h 

FILESEC.CPP 

FILESEC.H 

FolderBrowsexpp 

FolderBrowse.h 

FONT.CPP 

FONT.H 

FONT 1. CPP 

FONTl.H 

General. cpp 

General. h 

GroupBrowse.cpp 

GroupBrowse.h 

HHUPD.EXE 

HLP 

HLP.H 

HTMLHELP.H 

HTMLHELP.LIB 

Intemet.cpp 

Intemet.h 

IntemetData.cpp 

IntemetData.h 
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ITEK.ICO 
ITEKt.ico 
LICENSE.TXT 
list.txt 

ListBoxCtrl.cpp 

ListBoxCtrl.h 

LOCK.FIL 

Logging.cpp 

Logging.h 

LOGO.BMP 

LogView.cpp 

LogView.h 

LoveBug.kix 

MakeHelp.bat 

]VIanagerSplash260 1 .bmp 

MAPI.cpp 

MAPI.h 

messagebox.cpp 

messagebox.h 

MessageBoxData.cpp 

MessageBoxData.h 

MH.BAT 

MList.cpp 

MList.h 

MLParselNI.cpp 

MLParselni.h 

Monthll.TXT 

MPR.LIB 

MSAPPS.CPP 

MSAPPS.h 

NETAPI32.LIB 

NetBrowse.cpp 

NetBrowse.h 

NTCSFData.cpp 

NTCSFData.h 

NTDisp.cpp 

NTDisp.h 

NTLegal.cpp 

NTLegal.h 

NTPolicy.cpp 

NTPolicy.h 

NTSCRC.KIX 

NTscript Manager Bitmap.bmp 
ntscript manager logo 2.bmp 
ntscript splash screen logo 2. BMP 



list.txt 



ntscript splash screen logo.bmp 

NTScript Stuff 

NTSMGR.BAK 

NTSMGR.BMP 

NTsuReset.kix 

NTUpdate.cpp 

NTUpdate.h 

O 

OfficeData.cpp 

OfficeData.h 

OUT.KIX 

OXBitmapButton.cpp 

OXBitmapButton.h 

OXBitmapButton.rc 

OXBitmapButtonRes.h 

OXDUExt.h 

OXSplashWnd.cpp 

OXSplashWnd.h 

OXSplashWnd.ini 

OXSplashWndDIB.cpp 

OXSplashWndDIB.h 

Pagel.cpp 

Pagel.h 

Page2.cpp 

Page2.h 

ParselNI.cpp 

ParselNI.h 

PathData.cpp 

PathData.h 

PickD2.cpp 

PickD2.h 

PickDate.cpp 

PickDate.h 

PickPath.cpp 

PickPath.h 

Policy l.cpp 

Policy l.h 

Policy IData.cpp 

Policy IData.h 

Policy2.cpp 

Policy2.h 

POST.KIX 

PrinterData.cpp 

PrinterData.h 

Printers, cpp 
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#if 

! defined (AFX_SPLASHSCREEN_H 2 0856223_4 8F7_11D2_A4C6_444 553 54 0 00 0 INCLUDED_) 

#def ine' AFX_SPLASHSCREEN_H 2 085622 3_4 8F7_11D2_A4C6__444 553 54 0 0 00 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

// SplashScreen.h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// SplashScreen window 

class SplashScreen : public CWnd 

{ 

// Construction 
public: 

SplashScreen ( ) ; 

// Attributes 
public : 

CBitmap SS; 
CDC dc ; 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {aFX_VIRTUAL (SplashScreen) 
public : 

virtual BOOL Create (LPCTSTR IpszClassName , LPCTSTR IpszWindowName , DWORD 
dwStyle, const RECT&: rect, CWnd* pParentWnd, UINT nID, CCreateContext * pContext 
= NULL) ; 

virtual BOOL DestroyWindow ( ) / 

virtual BOOL OnChildNot if y (UINT message, WPARAM wParam, LPARAM IParam, 
LRESULT* pLResult) ; 
protected: 

virtual BOOL OnCommand (WPARAM wParam, LPARAM IParam) ; 
//} }AFX_VIRTUAL 

// Implementation 
public : 

virtual -SplashScreen () ; 

void Go ( int ) ; 
void Stop( void ); 

// Generated message map functions 
protected : 

//{ {afx_MSG (SplashScreen) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 
afx_msg void OnPaint () ; 



afx_msg void OnGetMinMaxInf o (MINMAXINFO FAR* IpMMI); 
afx_msg BOOL OnNcCreate (LPCREATESTRUCT IpCreateStruct) ; 

afx_msg void OnNcCalcSize (BOOL bCalcValidRects , NCCALCSIZE_PARAMS FAR* 
Ipncsp) ; 

//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX SPLASHSCREEN_H 20856223_48F7_11D2_A4C6_444553 540000 INCLUDED^) 



// ScriptM. cpp : Defines the class behaviors for the application. 
// 



#include " stdaf x . h" 
#include "ScriptM . h" 
#include "ScriptMDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE 

#endif 

int nosave ; 



///////////////////////////////////////////////////////////////////////////// 



// CScriptMApp 

BEGIN_MESSAGE_iyiAP (CScriptMApp, CWinApp) 
// { {AFX_MSG_MAP (CScriptMApp) 
//} }AFX_MSG_MAP 

ON_COMMAND (ID_HELP, CWinApp: :OnHelp) 
END MESSAGE MAP () 



///////////////////////////////////////////////////////////////////////////// 



// TODO: add construction code here, 

// Place all significant initialization in Initlnstance 



///////////////////////////////////////////////////////////////////////////// 



// The one and only CScriptMApp object 
CScriptMApp theApp; 



///////////////////////////////////////////////////////////////////////////// 



// CScriptMApp initialization 

CString ScriptPath; 
CString LogPath; 



// CScriptMApp construction 



CScriptMApp : : CScriptMApp ( ) 



extern CString 
extern CString 
CString 



TextED; 
ReplED; 



OnSaveCommand = 



II M 



#include <direct.h> 
#include "ParselNI.h" 



HICON IconList [12] ; 



# include " PickPath . h 



II 



void TrimString{ CString&: s ) 
{ 

s.TrimLeft( ' ' ); 
s .TrimRight ( ' ' ) ; 

} 

CString NextLine ( FILE* f, int len ) 
{ 

CString ret = " " ; 
char c = ' \n ' ; 

while ( c == ' \n' 1 I c == ' ' ) 
c = f getc ( f ) ; 

ret-f = c ; 

while { c 1= '\n' && f tell ( f ) < len ) 
{ 

c = f getc ( f ) ; 
if ( c != ' \n' ) 
ret+=c ; 

} 

return ret; 

} 

extern void DoubleAmps ( CStringS: ) ; 
extern void LoadTargetList ( void ); 

void GetPaths { void ) 
{ 

ScriptPath = " " ; 
LogPath = " " ; 
CurrentDomain = " . " ; 

char tl [256] ; 
char temps [256]; 
ParselNI pi ( true ) ; 

nosave = false; 

static DWORD count; 
static char buf [256] ; 
static char* b; 

HKEY DisplayKey; 
RegKey = " " ; 
CompanyName = " " ; 

bool INI Found; 

if( RegOpenKeyEx { HKEy_CURRENT_USER, " Sof tware\\ScriptLogic " , 0, 
KEY_ALL_ACCESS, ScDisplayKey ) -= ERROR_SUCCESS ) 



{ 

count = 2 56; 
sprintf ( buf , " " ) ; 

if( RegQue r y Value Ex ( DisplayKey, "Registrat ionCode " , 0, NULL, 
(LPBYTE)buf, Sccount ) == ERROR_SUCCESS ) 
RegKey = buf ; 

count = 2 56; 
sprintf ( buf, " " ) ; 

if { RegQueryValueEx ( DisplayKey, "RegisteredToComp" , 0, NULL, 
(LPBYTE)buf, &count ) == ERROR_SUCCESS ) 
Company Name = buf ; 

RegCloseKey( DisplayKey ); 



if( pi.OpenINI{ "slmgr.ini" ) ) 
{ 

pi .FindValue ( "Scripts", tl ); 
ScriptPath = tl; 

Def aultTarget = ScriptPath; 

if ( CompanyName == "" ) 

{ 

pi . FindValue ( "Company" , tl ) ; 
CompanyName = t 1 ; 

} 

if ( RegKey == "" ) 
{ 

pi . FindValue ( "Code", tl ); 
RegKey = tl; 

} 

pi .FindValue ( "Editor", tl ) ; 
if ( strcmp( tl, " " ) == 0 ) 

{ 

ReplED = "replmgr.exe"; 

} 

else 

{ 

ReplED = tl; 

} 

pi . FindValue ( "ScriptEditor" , tl ) ; 
if( strcmp( tl, " " ) == 0 ) 

{ 

TextED = "notepad.exe"; 

} 

else 

{ 

TextED = tl; 

} 



pi . FindValue ( "SMEditor", tl ); 
if( strcmp{ tl, " " ) == 0 ) 

{ 

SMED = "SLsvcmgr.exe"; 

} 

else 

{ 

SMED = tl; 

} 

pi. FindValue ( " OnS a ve Command " , tl ); 
if( strcmp( tl, " " ) == 0 ) 

{ 

OnSaveCommand = " " ; 

} 

else 

{ 

OnSaveCommand = tl; 

} 

TrimString( ScriptPath ); 
TrimString( TextED ); 
TrimString( CompanyName ); 
TrimString( RegKey ); 
TrimString( ReplED ); 
TrimString( SMED ) ; 

INI Found = true; 

} 

else 
{ 

SS2 .ShowWindow( SW_HIDE ); 
char temps [1024] ; 
char cwd [MAX_PATH] ; 

GetCurrentDirectory {MAX_PATH, cwd ) ; 

sprintf( temps, ResString( IDS_SLMGRINI_NF ), cwd ); 
MessageBox( NULL, temps, ResString( IDS_SLMGRINI_NF2 ), MB_OK | 
MB_ICONWARNING ) ; 

INIFound = false; 

} 

if( INIFound ) LoadTargetList ( ) ; 

if( argc > 1 ) ScriptPath = argv[l]; 

if{ ScriptPath [ ScriptPath . GetLength ()- 1 ] == • \\ ' ) ScriptPath = 
ScriptPath. Left { ScriptPath . GetLength { ) -1 ) ; 

sprintf( temps, "%s\\%s", (LPCTSTR) ScriptPath, "wtest" ); 



FILE* f = NULL; 
int t = clock ( ) ; 



while ( f NULL (clock ()-t < (CLOCKS_PER_SEC* 5 ) )) 

f = fopen( temps, "w" ); 



int rook = false; 



if ( f == NULL ) 
{ 

SS2 .ShowWindow( SW_HIDE ); 

MessageBox( NULL, ResString ( IDS_PATH_RO ), ResString ( 
IDS_PATH_ERROR ) , MB_OK | MB_ICONWARNING ) ; 

sprintf( tl, ResString ( IDS_PATH_R02 ), (LPCTSTR) ScriptPath ); 
rook = true ; 

} 

else 

{ 

f close ( f ) ; 
DeleteFile( temps ); 

rook = ( 1 (GetFileAttributes ( (LPCTSTR) ScriptPath ) & 
FILE_ATTRIBUTE_DIRECTORY ) || (GetFileAttributes ( (LPCTSTR) ScriptPath ) == 
OxFFFFFFFF) || (GetFileAttributes ( (LPCTSTR) ScriptPath ) & 
FILE_ATTRIBUTE_READONLY) ) ; 

sprintf( tl, ResString ( IDS_PATH_R02 ), (LPCTSTR) ScriptPath ); 

} 

if ( !rook ) 
{ 

sprintf( temps, " %s\\SLconf ig . kix" , (LPCTSTR) ScriptPath ); 
f = fopen( temps, "r" ) ; 



if ( f == NULL ) 
{ 

rook = true; 

sprintf( tl, ResString { IDS_SCRIPT_NF ), (LPCTSTR) ScriptPath 



) ; 

} 

else 

{ 
} 



f close ( f ) ; 



if ( rook ) 
{ 

PickPath* PP; 



PP = new PickPathO; 



PP- >UseTargetList = INIFound; 

PP- >m_Message = tl; 

PP- >VerifyReadAccess = true; 

PP->CheckForFile = true; 

PP->FileToCheckFor = " SLconf ig . kix" ; 

PP->FileCheckError = ResString { IDS_SCRIPT_NF2 ); 



SS2 .ShowWindow( SW_HIDE ); 

if( PP->DoModal 0 != IDCANCEL ) 
{ 

ScriptPath = PP->m_Path; 
SS2 .ShowWindow( SW_HIDE ); 

if{ MessageBox{ NULL, ResString( IDS_SAVE_INI ), ResString( 
IDS_UPDATE_INI ) , MB_YESNO ) == IDYES ) 

{ 

FILE* f = fopen{ " slmgr . ini " , "r" ); 
if ( f == NULL ) 

{ 

f = f open ( "slmgr.ini", "w" ) ; 

fprintf( f, "[File Locations] \n" ); 
fprintf( f, "Scripts=%s\n" , ScriptPath ); 

f close ( f ) ; 

} 

else 

{ 

CString Lines [256] ; 
int 1/ lines; 

fseek( 0, SEEK_END ); 
1 = ftell ( f ) ; 
fsee}c( f, 0, SEEK_SET ); 
lines = 0/ 

while ( ftell { f ) < 1 ) 
{ 

Lines[lines] = NextLine ( f, 1 ); 
lines++ ; 

} 

f close ( f ) ; 

f = f open ( "slmgr.ini"; "w" ); 
int X; 

f or ( x=0;x<lines;x++ ) 

{ 

CString tl; 

if( Lines [x] .GetLengthO < 7 ) 
{ 

fprintf ( f, "%s\n", Lines [x] ); 

} 

else 
{ 

tl = Lines [x] -Left (7) ; 
tl .MakeUpper { ) ; 



if( tl = 



= "SCRIPTS" ) 



ScriptPath ) ; 



{ 

fprintf( f, "Scripts=%s\n" , 

} 

else 

{ 

fprintf ( f, "%s\n", Lines [x] ); 

} 



} 

} 

} 

f close ( f ) ; 



} 



} 

else 

{ 

nosave = true; 

iy!essageBox{ NULL, ResString ( IDS_ONLY_LOG ResString( 
IDS_NO_LOC ) , MB_OK ) ; 

ScriptPath = " . " ; 

} 

delete PP; 

} 

} 

#include <shlobj .h> 
extern HICON Picon; 
BOOL CScriptMApp: : Initlnstance {) 

{ 

// Standard initialization 

// If you are not using these features and wish to reduce the size 

// of your final executable, you should remove from the following 

// the specific initialization routines you do not need. 

SS2 .LoadBitmap( MAKE I NTRE SOURCE ( IDB_BITMAP16 ), false ); 
SS2 .Show{ -1, NULL ) ; 

char SysPath [MAX_PATH] ; 

GetSystemDirectory ( SysPath, MAX_PATH ); 
int ; 

CString sp = SysPath; 

if( sp [sp.GetLengthO -1] != '\\' ) sp+='\\'; 
CString ocxPath = sp+ "hhctrl . ocx" ; 

bool oldocx = true; 



CFileStatus 



cf s ; 



if( CFile: :GetStatus ( ocxPath, cfs ) ) 
{ 

if{ cfs.m_ctime.GetYear {) >= 1999 ) 

{ 

oldocx = false; 

} 

} 

if( oldocx ) 

if( GetFileAttributes { "hhupd.exe" ) !- OxFFFFFFFF ) 
{ 

HKEY K; 

DWORD r2; 

char temps [256] ; 

int X; 

int splashran = true; 

int dosplash = true; 

RegCrea t eKeyEx ( HKEY_CURRENT_USER , 
"Sof tware\\Inteletek\\ScriptLogic\\ManagerRanHere" , 0, "REG_SZ" , 
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS , NULL, ScK, &r2 ); 

if( r2 == REG_CREATED_NEW_KEY ) 
{ 

SS2 .ShowWindow{ SW_HIDE ); 

if( MessageBox( NULL, ResString( IDS_HTMLHELP1 ), ResString{ 
IDS_UPDATE_SYSTEM ) , MB_YESNO ) == IDYES ) 

{ 

_spawnlp( _P_WAIT, "hhupd.exe", "hhupd.exe", "/Q", NULL 

) ; 

MessageBox( NULL, ResString{ IDS_UPDATE_DONE ), 
ResString( IDS_UPDATE_COMPLETE ), MB_OK ); 

exit (0) ; 

} 

else 
{ 

MessageBox( NULL, ResString( IDS_UPDATE_NOT ), 
ResString( IDS_NOT_UPDATED ), MB_OK ); 

} 

} 



RegCloseKey ( K ) ; 

} 

AfxOlelnit 0 ; 

AfxEnableControlContainer ( ) ; 



#ifdef _AFXDLL 

Enable3dControls { ) ; 
shared DLL 



// Call this when using MFC in a 



#else 

Enable3dControlsStatic { ) ; 

#endif 



// Call this when linking to MFC statically 



NIcon 

Picon 

IconLi 

IconLi 

IconLi 

IconLi 

IconLi 

IconLi 

IconLi 

IconLi 



= Loadlcon { 
= Loadlcon { 



IDI 
IDI 



_NETSYM ) 
PENCIL ) 



St [0] 
St [1] 
St [2] 
St [3] 
St [4] 
St [5] 
St [6] 
St [7] 



Loadlcon ( 
Loadlcon ( 
Loadlcon ( 
Loadlcon ( 
Loadlcon ( 
Loadlcon { 
Loadlcon { 
Loadlcon { 



IDI_NETWORK ) 
IDI_DOMAIN ) 
IDI_SYSTEM ) 
IDI_FOLDER ) 
IDI_PRINTER ) 
IDI_NETWORK ) 
IDI_GROUP ) ; 
IDI USER ) ; 



char wpath [MAX_PATH] ; 



GetWindowsDirectory { wpath, MAX_PATH ); 
CString duh; 
duh = wpath; 

if( duh.GetLengthO > 3 ) duh = duh.Left(3); 
SHFILEINFO sfi; 

memset ( &:sfi, 0, sizeof { sfi ) ); 
Colnitialize { NULL ); 

SHGetFilelnfo ( (LPCTSTR) duh, 0, &sfi, sizeof ( SHFILEINFO ), SHGFI^ICON 
SHGFI_SMALLICON ) ; 

IconList [8] = sfi.hlcon; 

SHGetFilelnfo ( wpath, 0, &sfi, sizeof ( SHFILEINFO ), SHGFI_ICON | 
SHGFI_SMALLICON ) ; 

IconList [9] = sfi.hlcon; 



IconList [10] = Loadlcon ( IDI_GLOBALGROUP ); 



GetPaths 0 ; 



CScriptMDlg dig; 

m_pMainWnd = Scdlg; 

int nResponse = dig . DoModal ( ) ; 

if (nResponse == IDOK) 

{ 

// TODO: Place code here to handle when the dialog is 
// dismissed with OK 

} 

else if (nResponse == IDCANCEL) 
{ 

// TODO: Place code here to handle when the dialog is 
// dismissed with Cancel 

} 

// Since the dialog has been closed, return FALSE so that we exit the 
// application, rather than start the application's message pump, 
return FALSE; 



} 



// ScriptMDlg . cpp : implementation file 
// 



ttinclude "stdafx.h" 
#include " ScriptM . h" 
#include " ScriptMDlg . h" 
#include "LogView.h" 
#include " PickDate . h" 
#include " PickD2 . h" 
#include "MList.h" 
#include "winnetwk.h" 
#include "PW2.h" 
#include "ParselNI.h" 
#include "TestWnd.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE_ 

#endif 

extern bool ForceDirty; 
int Users; 

char UserList [MAXUSERS] [64] ; 
int Groups; 

char GroupList [MAXGROUPS] [256] ; 
int Servers; 

char ServerList [MAXSERVERS] [256]; 
bool runbenabled = false; 



est ring CurrentDomain; 
CString ASmgrPath = ""; 

extern CString OnSaveCommand; 

#define EXIT_OK 0 
#define EXIT_NOPUB 1 
#define EXIT_NOSAVE 2 

int ExitState - EXIT_OK; 

bool Enumeration = true; 



///////////////////////////////////////////////////////////////////////////// 
// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 

{ 

public : 

CAboutDlg ( ) ; 

// Dialog Data 

// { {AFX_D ATA (CAboutDlg) 



enum { IDD = IDD_ABOUTBOX } ; 

est ring m_VerInfo; 

est ring m_Company; 

CString m_Key ; 

est ring m_UserInf o; 

//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CAboutDlg) 
public : 

virtual void WinHelp (DWORD dwData, UINT nemd = HELP_CONTEXT) ; 

virtual BOOL DestroyWindow ( ) ; 

protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
//} }AFX_VIRTUAL 

// Implementation 
protected: 

//{ {AFX_MSG{eAboutDlg) 

afx_msg BOOL OnHelpInf o {HELPINFO* pHelpInfo) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

CAboutDlg: rOAboutDlg 0 : ODialog (OAboutDlg : : IDD) 
{ 

//{ {AFX_DATA_INIT (eAboutDlg) 
m_VerInf o = _T ( " " ) ; 
m_Company = _T ( " " ) ; 
m_Key = _T ( " " ) ; 
m_UserInf o = _T { " " ) ; 
// } }AFX_DATA_INIT 

} 

void CAboutDlg: :DoDataExchange (eDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 

DDX_Text (pDX, IDC_STATICTEXT, m_VerInfo) ; 
DDX_Text (pDX, IDC_STATICTEXT2 , m_Company) ; 
DDX_Text (pDX, IDC_STATICTEXT3 , m_Key) ; 
DDX_Text (pDX, IDC_STATICTEXT5 , m_UserInfo) ; 
//} }AFX_DATA_MAP 

} 

BEGIN_iy[ESSAGE_MAP (CAboutDlg, CDialog) 

//{ {AFX_MSG_MAP (CAboutDlg) 

ON_WM_HELPINFO() 

//} }AFX_MSG_^4AP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CScriptMDlg dialog 



CScriptMDlg: :CScriptMDlg(CWnd* pParent /*=NULL*/) 
: CDialog (CScriptMDlg: : IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CScriptMDlg) 
m_Bottom = _T ( " " ) ; 
m_Location = _T ( " " ) ; 
// } }AFX_DATA_INIT 

// Note that Loadlcon does not require a subsequent Destroylcon in Win32 
m_hIcon = Af xGetApp { ) - >LoadIcon (IDR_MAINFRAME) ; 

} 

void CScriptMDlg: :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: :DoDataExchange (pDX) ; 
//{ {AFX_DATA_MAP (CScriptMDlg) 
DDX__Control (pDX, IDC_BUTT0N2 , m_EB) ; 
DDX_Control (pDX, IDC_SAVESCRIPT , m_SS) ; 
DDX_Control (pDX, IDC_EDITREPLBAT2 , m_ASmgr) ; 
DDX_Control (pDX, IDC_C0MB02 , m_LocationC) ; 
DDX_Control (pDX, IDC_STARTUPBAT , m_SUB) ; 
DDX_Control (pDX, IDC_EDITREPLBAT, Tn_editrb) ; 
DDX_Control (pDX , IDC_BUTT0N1 , m_bl ) ; 
DDX_Control (pDX, IDC_CUSTOMSCRIPT , m_cs) ; 
DDX_Control (pDX, IDC_REPLBATCH, m_runrb) ; 
DDX_Text (pDX, IDC_BOTTOM, m_Bottom) ; 
DDX_CBString (pDX, IDC_C0MB02 , m_Location) ; 
// } }AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP (CScriptMDlg, CDialog) 
// { {AFX_MSG_MAP (CScriptMDlg) 
ON_WM_SYSCOMMAND ( ) 
ON_WM_PAINT() 
ON_WM_QUERYDRAGICON ( ) 

ON_BN_CLICKED ( IDC_BUTT0N1 , OnButtonl ) 
ON_BN_CLICKED (IDC_BUTT0N2 , OnBut ton2 ) 
ON_BN_CLICKED (IDC__SAVESCRIPT, OnSavescript ) 
ON_WM_CLOSE ( ) 

ON_BN_CLICKED {IDC_REVIEWLOG, OnReviewlog) 
ON_BN_CLICKED (IDC_CUSTOMSCRIPT, OnCustomscript ) 
ON_BN_CLICKED (IDC_STARTUPBAT, OnS tartupba t ) 
ON_BN_CLICKED (IDC_REPLBATCH, OnReplbatch) 
ON_BN_CLICKED (IDC_EDITREPLBAT, OnEditreplbat ) 
ON_BN_CLICKED (IDC__BITBUT, OnBitbut) 
ON_BN_CLICKED ( IDB__BITMAP2 , OnBitmap2 ) 
ON_WM_TIMER ( ) 

ON_BN_CLICKED (IDC_BUTT0N3 ; OnTest Browse) 
ON_BN_CLICKED{IDC_HELP, OnHelp) 
ON_COMMAND (ID_FILE_SAVE, OnFileSave) 

ON_COMMAND ( ID_HELP_SCRIPTLOGICONTHEWEB , OnHelpScriptlogicontheweb) 

0N_C0MMAND { ID_HELP_CONTENTS , OnHelpContents ) 

ON_COMMAND ( I D_ED I T__CUS TOMS CRI PT , OnEd i tCustomscript) 

ON__COMMAND ( ID_EDIT_CUST0MSCRIPT2 , OnEditCustomscript2 ) 

ON COMMAND (ID_EDIT_REPLICATIONBATCH , OnEditRepl icat ionbatch) 



ON_COMiy[AND ( I D_ED I T_S CR I PTLOG I CCONF I GURAT I ON , 
OnEditScriptlogicconf iguration) 

ON_COMMAND (ID_FILE_EXIT, OnFileExit) 
ON_COMMAND ( I D_F I LE_RE PL I GATE , OnF i 1 e Rep 1 i ca t e ) 
ON_COMMAND ( ID_VIEW_LOGS , OnViewLogs ) 

ON_COMMAND ( ID_HELP_ABOUTSCRIPTLOGIC, OnHelpAboutscriptlogic ) 
ON_COMMAND ( ID_HELP_REGISTER, OnHelpRegister ) 

ON__COMMAND ( I D_ED I T_VAL I DAT I ONDE FAULTS , OnEdi t Va 1 ida t i onde faults) 
ON_WM_HELPINFO ( ) 

ON_BN_CLICKED {IDC_ADDLOCATION, OnAddlocat ion) 
ON_CBN_SELCHANGE { IDC__C0MB02 , OnSelchangeCombo2 ) 
ON_CBN_DROPDOWN ( IDC_C0MB02 , OnDropdownCombo2 ) 
ON_COMMAND {ID_TOOLS_EDITSCRIPTLIST, OnToolsEdit script list) 
ON_BN_CLICKED ( IDC_EDITREPLBAT2 , OnASmgr ) 

ON_COMMAND ( ID_TOOLS_AUTOSHAREMANAGER , OnToolsAutosharemanager ) 
ON_COMMAND ( ID_OPTIONS_REPLMANAGERPATH , OnOptionsReplmanagerpath) 
ON_UPDATE_COMiyiAND_UI { ID_FILE_SAVE , OnUpdateFileSave ) 
ON_BN_CLICKED ( IDC_EDITREPLBAT3 , OnServiceManager ) 
ON_COMMAND (ID_TOOLS_SERVICEMANAGER, OnToolsServicemanager ) 
ON_COMMAND (ID_TOOLS_ASSIGNSCRIPT, OnToolsAssignscript ) 
ON_COMMAND (ID_TOOLS_SySTEMOPTIONS, OnToolsSystemopt ions ) 
ON_COMMAND (ID_TOOLS__CUSTOMSCRIPTMANAGER, OnTool sCustomscriptmanager ) 
//} }AFX_MSG_I^P 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CScriptMDlg message handlers 

#define ^4AXRES0URCES 1500 

void DisplayStruct { LPNETRESOURCE n ) 
{ 

char temps [2048] ; 

char si [256] ; 
char s2 [256] ; 
char s3 [256] ; 
char s4 [256] ; 

if( n->dwScope == RESOURCE_CONNECTED ) sprintf { si, "RESOURCE_CONNECTED 

) ; 

if( n->dwScope == RESOURCE_GLOBALNET ) sprintf { si, "RESOURCE_GLOBALNET 

) ; 

if( n->dwScope == RESOURCE_REMEMBERED ) sprintf ( si, 
"RESOURCE_REMEMBERED" ) ; 

if( n->dwType == RE SOURCE TYPE_ANY ) sprintf ( s2 , "RESOURCETYPE_ANY" ); 
if( n->dwType == RESOURCETYPE_DISK ) sprintf ( s2, "RESOURCETYPE_DISK" ) 
if( n->dwType == RESOURCETYPE_PRINT ) sprintf ( s2, "RESOURCETYPE_PRINT" 

) ; 



if{ n->dwDisplayType == RESOURCED I SPLAYTYPE_DOMAIN ) sprintf { s3 , 
"RESOURCEDISPLAYTYPE D0^4AIN" ) ; 



if( n->dwDisplayType == RESOURCEDISPLAyTYPE_SERVER ) sprintf { s3 , 
"RESOURCEDISPLAYTYPE_SERVER" ) ; 

if( n->dwDisplayType RESOURCED I SPLAYTyPE_S HARE ) sprintf ( s3, 
"RESOURCEDISPLAYTYPE_SHARE" ) ; 

if{ n->dwDisplayType == RESOURCEDISPLAYTYPE_GENERIC ) sprintf { s3 , 
"RESOURCEDISPLAYTYPE_GENERIC" ) ; 

if( n->dwUsage == RESOURCEUSAGE_CONNECTABLE ) sprintf ( s4 , 
"RESOURCEUSAGE_CONNECTABLE" ) ; 

if( n->dwUsage == RESOURCEUSAGE_CONTAINER ) sprintf ( s4, 
"RESOURCEUSAGE_CONTAINER" ) ; 

sprintf ( temps , "scp: %s, typ : %s, dt : %s, usg: %s, rn: %s , In: %s , cmt : %s, pvdr : % 
sl,s2,s3,s4, n- >lpLocalNaTne , n- >lpRemoteName , n- >lpComment , n- >lpProvider ) 

MessageBox{ NULL, temps, temps, MB_OK ); 

} 

void Chopl ( char* in, char* out ) 

{ 

int x,y; 

for( x=0 , y=2 ;y<strlen ( in );x++,y++ ) 

{ 

out [x] = in [y] ; 

} 

out [x] = 0 ; 

} 

void Chop2 ( char* in, char* out ) 

{ 

int x,y; 
int c = 0 ; 
CString t; 

// This is dumb looking, but some compiler bugs are just to BAD 

char ti [256] ; 

sprintf ( ti, "%s" , in ) ; 

t = ti; 

c = t . ReverseFind ( '\\' ); 

sprintf ( out, "%s", (LPCTSTR) (t . Right ( t . GetLength ( ) - c - 1)) ) ; 
return; 

while ( c < 3 && X < strlen{ in )) 

{ 

MessageBox( NULL, (LPCTSTR) t, in, MB_OK ) ; 



if{ t[x] == 'W ) 



{ 

MessageBox { NULL, MB_OK ) ; 

C + + ; 

} 

X++ ; 

} 

for{ y-0 ; x<strlen { in );x++,y++ ) 
{ 

out [y] = in [x] ; 

} 

out [y] = 0 ; 

MessageBox( NULL, out, in, MB__OK ); 



BOOL EnumerateServersFrom ( LPNETRESOURCE source ) 

{ 

DWORD dwResult, dwResultEnum; HANDLE hEnum; 

DWORD cbBuffer = 16384; // 16K is a good size 

DWORD cEntries = OxFFFFFFFF; // enumerate all possible entries 
LPNETRESOURCE IpnrLocal / // pointer to enumerated structures 

DWORD i; 

char ts [256] ; 

dwResult = WNetOpenEnum(RES0URCE_GL0BALNET, 

RESOURCETYPE_ANY , 

//. enumerate all resources 

source , 

time this function is called 

&hEnum) ; 

resource 

if (dwResult != NO_ERROR) 
{ 

return false; 

} 

do 
{ 

// Allocate memory for NETRESOURCE structures. 
IpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR, cbBuffer); 

dwResultEnum = WNetEnumResource (hEnum, // resource handle 

&cEntries, // defined locally as OxFFFFFFFF 

IpnrLocal, // LPNETRESOURCE 

&cbBuf fer) ; // buffer size 

if (dwResultEnum == NO_ERROR) 

{ 

for{i =0; i < cEntries; i++) 

{ 

Chopl ( IpnrLocal [i] . IpRemoteName , ts ); 



0, 

// NULL first 
// handle to 



sprintf ( ServerList [ Servers ], "%s", ts ); 
Servers++ ; 

} 

} 

else if (dwResultEnum != ERROR_NO_MORE_ITEMS) 

{ 

break; 

} 

} while (dwResultEnum != ERR0R_NO_MORE_ITEMS) ; 

GlobalFree ( (HGLOBAL) IpnrLocal) ; 
WNetCloseEnum (hEnum) ; 

return false; 

} 

BOOL EnumerateSharesFrom{ LPNETRESOURCE source, CComboBox& b ) 

{ 

DWORD dwResult, dwResultEnum; HANDLE hEnum; 

DWORD cbBuffer = 16384; // 16K is a good size 

DWORD cEntries = OxFFFFFFFF; // enumerate all possible entries 

LPNETRESOURCE IpnrLocal; // pointer to enumerated structures 
DWORD i; 

char tsl [256] ; 

char temps [2 5 6] ; 

while ( b.DeleteString( 0 ) != CB_ERR ); 

dwResult = WNetOpenEnum(RESOURCE_GLOBALNET, 

RESOURCETYPE_ANY , 

// enumerate all resources 

source, 

time this function is called 

SchEnum) ; 

resource 

if (dwResult != N0_ERROR) 
{ 

return false; 

} 

do 
{ 

// Allocate memory for NETRESOURCE structures. 
IpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR, cbBuffer); 

dwResultEnum = WNetEnumRe source (hEnum, // resource handle 

SccEntries, // defined locally as OxFFFFFFFF 

IpnrLocal, // LPNETRESOURCE 

SicbBuffer) ; // buffer size 



0, 

// NULL first 
// handle to 



if (dwResultEnum = 

{ 



= NO ERROR) 



for{i =0; i < cEntries; i++) 

{ 

sprintf { tsl, "%s", IpnrLocal [i] . IpRemoteName ); 
Chop2 { tsl; temps ); 
b.AddString( temps ); 

} 

} 

else if (dwResultEnum != ERROR_NO_MORE_ITEMS) 
{ 

break; 

} 

} while (dwResultEnum != ERROR_NO_MORE_ITEMS) ; 



GlobalFree ( (HGLOBAL) IpnrLocal) ; 
WNetCloseEnum (hEnum) ; 

return false; 

} 



BOOL EnumeratePrintersFrom( LPNETRESOURCE source, CComboBoxSc b ) 
{ 

DWORD dwResult, dwResultEnum; HANDLE hEnum; 

DWORD cbBuffer = 16384; // 16K is a good size 

DWORD cEntries = OxFFFFFFFF; // enumerate all possible entries 

LPNETRESOURCE IpnrLocal; // pointer to enumerated structures 

DWORD i; 

char tsl [256] ; 

char temps [256] ; 

while{ b.DeleteString( 0 ) 1= CB_ERR ); 



dwResult = WNetOpenEnum{RESOURCE_GLOBALNET, 

RESOURCETYPE_PRINT , 

II enumerate all resources 

source, 

time this function is called 

& hEnum) ; 

resource 



0, 

// NULL first 
// handle to 



if (dwResult != NO_ERROR) 
{ 

return false; 

} 



do 
{ 



// Allocate memory for NETRESOURCE structures. 
IpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR, cbBuffer); 

dwResultEnum = WNetEnumRe source (hEnum, // resource handle 

&cEntrieS; // defined locally as OxFFFFFFFF 

IpnrLocal, // LPNETRESOURCE 

ficcbBuffer) ; // buffer size 



if (dwResultEnum == NO_ERROR) 
{ 

for{i =0; i < cEntries; i++) 

{ 

sprintf ( tsl, "%s", IpnrLocal [i] . IpRemoteName ); 
Chop2 ( tsl, temps ) ; 
b.AddString( temps ); 

} 

} 

else if (dwResultEnum != ERROR_NO_MORE_ITEMS) 
{ 

break; 

} 

} while (dwResultEnum 1= ERROR_NO_MORE_ITEMS) ; 

GlobalFree { (HGLOBAL) IpnrLocal) ; 
WNetCloseEnum(hEnum) ; 

return false ; 

} 

BOOL Findln( const char* name, LPNETRESOURCE source, LPNETRESOURCE result, int 

r = 1 ) 

{ 

DWORD dwResult, dwResultEnum; HANDLE hEnum; 

DWORD cbBuffer = 16384; // 16K is a good size 

DWORD cEntries = OxFFFFFFFF; // enumerate all possible entries 
LPNETRESOURCE IpnrLocal; // pointer to enumerated structures 

DWORD i; 

r-- ; 

char temps [256]; 

CString nl , n2 ; 

nl = name; 
nl . MakeUpper ( ) ; 

if { r < 0 ) return false; 

dwResult = WNetOpenEnum(RESOURCE_GLOBALNET, 

RESOURCETYPE_ANy , 

II enumerate all resources 

source, 

time this function is called 

&hEnum) ; 

resource 

if (dwResult != NO_ERROR) 
{ 

return false; 



0, 

// NULL first 
// handle to 



} 

do 
{ 

// Allocate memory for NETRESOURCE structures. 
IpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR, cbBuf fer) ; 

dwResultEnum = WNetEnumResource (hEnum, // resource handle 

ScCEntries, // defined locally as OxFFFFFFFF 

IpnrLocal, // LPNETRESOURCE 

&cbBuf fer) ; // buffer size 

if (dwResultEnum == NO_ERR0R) 
{ 

for(i =0; i < cEntries; i++) 

{ 

n2 = IpnrLocal [i] . IpRemoteName; 
n2 . MakeUpper ( ) ; 

// if( strcmp{ IpnrLocal [i] . IpRemoteName , name ) == 0 ) 

if( strcmp( (LPCTSTR)nl, (LPCTSTR)n2 ) == 0 ) 
{ 

memcpy( (void* ) result , &lpnrLocal [i] , sizeof ( 

NETRESOURCE ) ) ; 

return true; 

} 

// If this NETRESOURCE is a container, call the 

function 

// recursively. 

if (RESOURCEUSAGE_CONTAINER == 

(IpnrLocal [i] .dwUsage & RESOURCEUSAGE_CONTAINER) ) 
if( Findln{ name, SdpnrLocal [ i] , result, r ) ) 
{ 

GlobalFree ( (HGLOBAL) IpnrLocal) ; 
WNetCloseEnum (hEnum) ; 
return true ; 

} 

} 

} 

else if (dwResultEnum != ERROR_NO_MORE_ITEMS) 
{ 

break; 

} 

} while (dwResultEnum != ERROR_NO_MORE_ITEMS) ; 

GlobalFree ( (HGLOBAL) IpnrLocal) ; 
WNetCloseEnum (hEnum) ; 



return false; 

} 



BOOL WINAPI EnumerateFunc { LPNETRESOURCE Ipnr) 
{ 

DWORD dwResult, dwResultEnum; HANDLE hEnum; 

DWORD cbBuffer = 16384; • // 16K is a good size 

DWORD cEntries = OxFFFFFFFF; // enumerate all possible entries 

LPNETRESOURCE IpnrLocal ; // pointer to enumerated structures 

DWORD i; dwResult = WNetOpenEnum {RESOURCE_GLOBALNET, 

RESOURCETYPE_ANY, 0, // enumerate all resources 

Ipnr, // NULL first time this function is called 

SchEnum) ; // handle to resource 

if (dwResult != NO_ERROR) 
{ 

//An application-defined error handler is demonstrated in the 
// section titled "Retrieving Network Errors." 
return FALSE; } do { 

// Allocate memory for NETRESOURCE structures. 
IpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR; cbBuffer); 
dwResultEnum = WNetEnumResource (hEnum, // resource handle 

&cEntries, // defined locally as OxFFFFFFFF 

IpnrLocal, // LPNETRESOURCE 

SccbBuffer) ; // buffer size 

if (dwResultEnum == NO_ERROR) { 

for(i =0; i < cEntries; i++) { 

// Following is an application-defined function for 

// displaying contents of NETRESOURCE structures. 

DisplayStruct (&:lpnrLocal [i] ) ; // 

// If this NETRESOURCE is a container, call the function 

// recursively. 

if (RESOURCEUSAGE_CONTAINER == 

(IpnrLocal [i] .dwUsage & RESOURCEUSAGE_CONTAINER) ) 
if ( ! EnumerateFunc (&lpnrLocal [i] ) ) ; 
} } 

else if (dwResultEnum 1= ERR0R_NO_MORE_ITEMS ) { 
break; } } 

while (dwResultEnum 1= ERROR_NO_MORE_ITEMS) ; 

GlobalFree ( (HGLOBAL) IpnrLocal); dwResult = WNetCloseEnum (hEnum) ; 

if (dwResult != NO_ERROR) { 

return FALSE; } return TRUE; 

} 

void EnumShares( const char* s, CComboBox&i b ) 
{ 

/* 

char ts [256] ; 



sprintf( ts, "\\\\%s", s ); 

#ifdef C4_WIN_NT 

NETRESOURCE nr; 
NETRESOURCE nr2 ; 



if( Findln( (LPCTSTR) CurrentDomain, NULL, &nr2 , 2 ) ) 



{ 

if ( Findln( ts, 5cnr2 , &:nr, 1 ) ) 

{ 

EnumerateSharesFrom ( Scnr, b ) ; 

} 

else 

{ 

if ( Findln( ts, Scnr2 , Scnr , 2 ) ) 

{ 

EnumerateSharesFrom ( &:nr, b ); 

} 

else 

{ 

if( Findln( ts, Scnr 2 , Scnr, 3 ) ) 

{ 

EnumerateSharesFrom ( &nr, b ); 

} 

else 

{ 

MessageBox( NULL, "Server Not Found", 

"Network Error", MB_OK ); 

return; 

} 

} 

} 

} 

else 

{ 

MessageBox{ NULL, "Local Domain Not Found", "Network Error", MB_OK 

) ; 

return; 

} 

#endif 

#ifdef C4_WIN_NT 
PW2* PW; 
PW = new PW2 ( ) ; 

PW->Create( IDD_PLEASEWAIT2 ); 
SetCursor (LoadCursor (NULL, IDC_WAIT) ) ; 
while( b.DeleteString ( 0 ) != CB_ERR ); 
HANDLE eh; 
NETRESOURCE nr; 

NETRESOURCE rlist [MAXRESOURCES] ; 

DWORD size = {sizeof( NETRESOURCE ) * MAXRESOURCES); 
DWORD count = MAXRESOURCES; 
SERVER_INFO_100* i; 

wchar_t wcs [2 56] ; 
mbstowcs ( wcs, s, 256 ); 



if{ s[0] 0 ) 

{ 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

PW->DestroyWindow ( ) ; 

b.AddString{ "<Invalid Server>" ); 

return; 

} 

if ( NetServerGetlnfo ( (char*)wcs, 100, (BYTE**)&i ) != NERR_Success ) 
{ 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

PW- >DestroyWindow ( ) ; 

b.AddString( "<Invalid Server>" ); 

MessageBox( NULL, "Server Not Found", "Share Enum Error", ]y[B_OK | 
iyiB_ICONWARNING ) ; 

return; 

} 

NetApiBuf f erFree ( i ) ; 

char temps [256] ; 

sprintf( temps, "\\\\%s", s ); 

nr . IpRemoteName - (char* ) temps ; 
nr.dwScope = RESOURCE_GLOBALNET ; 
nr.dwType = RESOURCETYPE_ANY; 

nr .dwDisplayType = RESOURCEDISPLAYTyPE_SERVER ; 
nr.dwUsage = RESOURCEUSAGE_CONTAINER; 

DWORD ret; 

ret = WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY , 0, &nr, &eh ); 

if( ret == ERROR_NOT_CONTAINER ) { MessageBox ( NULL, "Not Container", 
"Open Error", MB_OK ); return; }; 

if( ret == ERROR_INVALID_PARAiyiETER ) { MessageBox( NULL, "Invalid 
Paramater", "Open Error", MB_OK ); return; }; 

if ( ret ERROR_NO_NETWORK ) { MessageBox ( NULL, "No Network", "Open 
Error", MB_OK ); return; }; 

if ( ret == ERROR_EXTENDED_ERROR ) { MessageBox( NULL, "Extended Error", 
"Open Error", MB_OK ); return; }; 

if ( ret 1= NO_ERROR ) 
{ 

ret = FormatMessage ( FORMAT_MESSAGE_FROM_SYSTEM, 

0, 

GetLastError ( ) , 
0, 

temps , 
256, 0 ) ; 



MessageBox{ NULL, temps, "Open UFO Error", MB_OK ); 



return; 

}; 

ret = WNetEnumResource ( eh, Sccount, (LPVOID) &rlist , Scsize ); 

if( ret == ERROR_MORE_DATA ) { MessageBox( NULL, "More Data", "Error", 
MB_OK ) ; return; } ; 

if ( ret =- ERROR_INVALID_HANDLE ) { MessageBox { NULL, "Invalid Handle", 
"Error", MB_OK ); return;. }; 

if{ ret == ERROR_NO_NETWORK ) { MessageBox { NULL, "No Network" ," Error " , 
MB_OK ); return; }; 

if( ret == ERROR_EXTENDED_ERROR ) { MessageBox{ NULL, "Extended 
Error ", "Error" , MB_OK ); return; }; 

int X; 

//sprintf( temps, "Count:%i", count ); 
//MessageBox ( NULL, temps, temps, MB_OK ); 

sprintf ( temps, " Count :%i", count ); 
MessageBox( NULL, temps, temps, MB_OK ); 

for{ x=0 ;x< count ;x++ ) 

{ 

char chopchop [1024] ; 
int c = 0 ; 
int y = 0; 
int z = 0 ; 

while ( c < 3 && y < strlen( rlist [x] . IpRemoteName ) ) 

{ 

if ( rlist [x] . IpRemoteName [y] == '\\' ) C++; 
y++; 

} 

for{ ;y<strlen( rlist [x] . IpRemoteName ) ;y++ ) 

{ 

chopchop [z] = rlist [x] . IpRemoteName [y] ; 

Z + + ; 

} 

chopchop [z] =0; 
b.AddString( chopchop ); 

} 

WNetCloseEnum( eh ); 
PW- >DestroyWindow ( ) ; 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

#endif 
V 

} 



void EnumPrinters ( const char* s, CComboBox& b ) 



{ 

/* 

NETRESOURCE nr; 
NETRESOURCE nr2 ; 

char ts [256] ; 

sprintf ( ts, "\\\\%s", s ); 

#ifdef C4_WIN_NT 

if( Findln{ (LPCTSTR) CurrentDomain, NULL, &nr2 , 2 ) ) 

{ 



if{ Findln{ ts, &.nr2 , &nr, 1 ) ) 
{ 



} 

else 

{ 



EnumeratePrintersFrom( &nr, b ) ; 



if{ Findln( ts, Scnr2 , Sciir, 2 ) ) 
{ 

EnumeratePr inter sFrom( Scnr , b ) ; 

} 

else 

{ 

if( Findln( ts, &nr2 , &nr, 3 ) ) 



EnumeratePrintersFrom ( &:nr, b ); 



else 



•Network Error", MB OK) 



MessageBox( NULL, "Server Not Found", 
return; 



} 

else 
{ 



) ; 



MessageBox( NULL, "Local Domain Not Found", "Network Error", MB_OK 
return; 



#endif 

#ifdef C4_WIN_NT 
PW2* PW; 
PW = new PW2 { ) ; 

PW->Create{ IDD_PLEASEWAIT2 ) ; 
SetCursor (LoadCursor (NULL, IDC WAIT)); 



while( b.DeleteString ( 0 ) != CB_ERR ); 
HANDLE eh; 
NETRESOURCE nr; 

NETRESOURCE rlist [I^IAXRESOURCES] ; 

DWORD size = (si2eof{ NETRESOURCE ) * MAXRESOURCES) ; 
DWORD count = MAXRESOURCES; 
SERVER_INFO_10 0* i; 

wchar_t wcs [256] ; 
mbstowcs ( wcs, s, 256 ); 

if( s[0] 0 ) 

{ 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

PW- >Des troy Window ( ) ; 

b.AddString( "<Invalid Server>" ); 

return; 

} 

if( NetServerGetInfo( (char*) wcs, 100, (BYTE**)&i ) 1= NERR_Success 
{ 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

PW- >DestroyWindow ( ) ; 

b.AddString( "<Invalid Server>" ); 

MessageBox( NULL, "Server Not Found", "Share Enum Error", MB_ 
ICONWARNING ) ; 

return; 

} 

NetApiBuf f erFree ( i ); 

char temps [256] ; 

sprintf( temps, "\\\\%s", s ); 

nr . IpRemoteName = (char* ) temps ; 
nr.dwScope = RESOURCE_GLOBALNET ; 
nr.dwType = RESOURCETYPE_ANY; 

nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER; 
nr.dwUsage = RESOURCEUSAGE_CONTAINER; 

WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_PRINT , 0, &nr, &eh ) 
WNetEnumResource ( eh, &count, (LPVOID) Scrlist , ficsize ); 
int X; 

f or ( x=0 ;x< count ; X++ ) 

{ 

char chopchop [256] ; 
int c = 0 ; 
int y = 0 ; 



int z = 0; 

while { c < 3 y < strlen( rlist [x] . IpRemoteName ) ) 

{ 

if ( rlist [x] . IpRemoteName [y] == ' \\ ' ) C++; 
y++; 

} 

for( ;y<strlen( rlist [x] . IpRemoteName ) ;y++ ) 

{ 

chopchop[z] = rlist [x] . IpRemoteName [y] ; 
Z + + ; 

} 

chopchop[z] = 0; 
b.AddString( chopchop ); 

} 

WNetCloseEnum( eh ) ; 
PW- >DestroyWindow ( ) ; 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

#endif 

*/ 

} 

void GetServers ( void ) 

{ 

/* 

NETRESOURCE nr; 
NETRESOURCE nr2 ; 

if{ Findln( (LPCTSTR) CurrentDomain, NULL, Stnr, 2 ) ) 

{ 

EnumerateServersFrom ( &nr ) ; 

} 

else 

{ 

MessageBox{ NULL, "Cannot Locate Domain", "Network Error", MB_OK ); 

} 

#ifdef C4_WIN_NT 

// PW2* PW; 

// PW = new PW2 0 ; 

// PW->Create( IDD_PLEASEWAIT2 ); 

// MessageBox( NULL, "Enumerating Servers", "Enum", MB_OK ); 
// EnumerateFunc { NULL ); 

SetCursor (LoadCursor (NULL, IDC_WAIT) ) ; 

HANDLE eh; 



NETRESOURCE nr; 

NETRESOURCE rlist [MAXRESOURCES] ; 

DWORD size = (sizeof{ NETRESOURCE ) * MAXRESOURCES); 
DWORD count = MAXRESOURCES; 
SERVER_INFO_100* i; 

char s [256] ; 

sprintf( s, "%s", (LPCTSTR) CurrentDomain ); 

wchar_t wcs[2 56]; 
mbstowcs ( wcs, s, 256 ); 

if{ s[0] == 0 ) 
{ 

Set Cursor (LoadCursor (NULL, IDC_ARROW) ) ; 

PW- >DestroyWindow { ) ; 

b.AddString( "<Invalid Server>" ) ; 

return; 

} 



// if( NetServerGetlnfo ( (char*)wcs, 100, {BYTE**)&i ) i= NERR_Success ) 

// { 

// SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

// PW- >DestroyWindow ( ) ; 

// b.AddString( "<Invalid Server>" ); 

// MessageBox( NULL, "Server Not Found", "Share Enum Error", MB_OK | 

MB_ICONWARNING ) ; 
// return; 

// } 

// NetApiBuf f erFree ( i ); 



char temps [256]; 

sprintf( temps, "%s", s ); 

nr . IpRemoteName = temps; 
nr.dwScope = RESOURCE_GLOBALNET ; 
nr.dwType = RE SOURCE TYPE_ANY; 

nr .dwDisplayType = RESOURCED I SPLAYTYPE_DOMAIN; 
nr.dwUsage = RESOURCEUSAGE_CONTAINER; 

WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY , 0, tor, &eh ) ; 
WNetEnumResource { eh, &count, (LPVOID) &rlist , &size ); 
int X ; 

Servers = 0 ; 

f or ( x=0 ;x< count ;x++ ) 

{ 

char chopchop [ 2 5 6 ] ; 
int c = 0; 



// 
// 



int y = 0; 
int z = 0 ; 

char rn [256] ; 

sprintf ( rn, "%s", rlist [x] . IpRemoteName ); 
while ( c < 3 y < strlen{ rn ) ) 

{ 

if( rn[c] == "W ) C++; 
y++; 

} 

for( ;y<strlen( rn ) ;y++ ) 

{ 

chopchop[z] = rn [y] ; 

Z + + ; 

} 

chopchop[z] = 0; 
CString tcs = rn; 

sprintf { chopchop; "%s'\ (LPCTSTR) ( tcs . Right ( tcs . GetLength ( ) -2 )) 



) ; 



sprintf ( ServerList [Servers] , "%s", chopchop ); 
Servers++ ; 

} 

WNetCloseEnum ( eh ) ; 

// PW->DestroyWindow ( ) ; 

SetCursor (LoadCursor (NULL, IDC_ARROW) ) ; 

#endif 
/* 

#ifdef C4_WIN_NT 

_SERVER_INFO_10 0 *buf,*cur; 

DWORD read, total, resumeh, rc, i; 
DWORD prefmaxlen = 512; 

resumeh = 0; 

Servers = 0; 

do 
{ 

buf = NULL; 

rc = NetServerEnum( NULL, 100, (BYTE* * ) &buf , prefmaxlen, 
Scread, &total, SV_TYPE_ALL, NULL, NULL ); 

if ( rc != ERROR MORE DATA rc != ERROR SUCCESS ) breaJc; 



f or ( i=0,cur = buf ; i<read; ++i , ++cur ) 

{ 

wcstombs( ServerList [Servers] , (const wchar_t* ) (cur- 

>svlOO_name) , 256 ) ; 

if { Servers < MAXSERVERS-2 ) 
Servers++ ; 

} 

if ( buf 1= NULL ) NetApiBuf f erFree { buf ) ; 
} while ( rc == ERROR_MORE_DATA ); 

#endif 
*/ 

} 

extern CString LogonServer; 

void GetUsers ( void ) 
{ 

#ifdef C4_WIN_NT 

LPUSER_INF0_1 pBuf ; 

DWORD numUsers; 
DWORD could; 
DWORD resume=0; 
BYTE* server = NULL; 

NetGetDCName ( NULL, NULL, ^server ); 
WCHAR* logs [1024] ; 



cliar cname[256] ; 

GetEnvironmentVariable { "LogonServer", cname, 256 ); 
LogonServer = cname; 

if( LogonServer 1= "" ) 

{ 

mbstowcs{ (unsigned short*)logs, (const clnar* ) (LPCTSTR) LogonServer , 
LogonServer .GetLengtli () +1 ); 

} 

else 

{ 

wcscpy( (unsigned short*)logs, (const unsigned short* ) server ); 

} 

NetUserEnum( (const wc]iar_t* ) logs , 1, 0, (LPBYTE* ) &pBuf , OxFFFFFFFF, 
&:numUsers, Sccould, Presume ) ; 

NetApiBuf f erFree ( server ); 

Users = 0; 

for( int u=0 ; u<numUsers ;u++ ) 

{ 

char uname [MAX PATH] ; 



if( (pBuf [u] .usril_f lags & UF_N0R^4AL_ACC0UNT) || 
(pBuf [u] .usril_f lags & UF_TEMP_DUPLICATE_ACCOUNT) ) 
{ 

wc s tombs ( UserList [Users] , (const 
wchar_t*) (pBuf [u] .usril_name) . wcslen( pBuf [u] .usril_name ) -f 1 ) ; 

if ( Users < MAXUSERS-2 ) 
Users++ ; 

} 

} 

NetApiBuf f erFree ( pBuf ); 

#endif 
} 

void GetLocalGroups ( void ) 
{ 

#ifdef C4_WIN_NT 

L0CALGR0UP_INF0_1 *buf , *cur ; 
BYTE *server=NULL; 

DWORD read, total, resumeh, rc, i; 
DWORD prefmaxlen = 512; 

NetGetDCName ( NULL, NULL, &server ); 

resumeh = 0; 

do 
{ 

buf = NULL; 

rc = NetLocalGroupEnum{ (const unsigned short* ) server , 1, 
(BYTE**) &buf , prefmaxlen, &read, &total, &resumeh ); 

if ( rc != ERROR_MORE__DATA && rc 1= ERROR_SUCCESS ) break; 

f or ( i=0,cur = buf ; i<read; ++i , ++cur ) 

{ 

wcstombs ( GroupList [Groups] , (const wchar_t * ) (cur- 

>lgrpil_name) , 256 ) ; 

if( Groups < MAXGROUPS-2 ) 
Groups++ ; 

} 

if( buf != NULL ) NetApiBuf f erFree ( buf ); 
} while ( rc ERROR_MORE_DATA ); 
NetApiBuf f erFree ( server ); 

#endif 
} 



void GetGlobalGroups ( void ) 
{ 

#ifdef C4_WIN_NT 

void *buf; 
NET_DISPLAY_USER *ndu; 
NET_DISPLAY_MACHINE *ndm; 
NET_DISPLAY_GROUP *ndg; 
DWORD read, next_index, rc, i; 

BYTE *server=NULL; 

int level = 3; 

NetGetDCName { NULL, NULL, ^server ) ; 

next_index = 0 ; 

do 

{ 

buf = NULL; 

rc = NetQueryDisplayInf ormation ( (const unsigned 
short*) server, level, next_index, 10, 1024, &read, Scbuf ); 

if ( rc != ERROR_MORE_DATA rc != ERROR_SUCCESS ) 
break ; 

for ( i = 0, ndg = (NET_DISPLAY_GROUP *) buf; i < read; 

++ i, ++ ndg ) 

r 
I 

wcstombs{ GroupList [Groups] , (const 
wchar_t*) (ndg- >grpi3_name ) , 2 56 ) ; 

if( Groups < MAXGROUPS-2 ) 
Groups ++ ; 



if ( read > 0 ) 

next_index = ( (NET_D1SPLAY_GR0UP *)buf) [read - 

1] . grpi3_next_index; 

if ( buf 1= NULL ) 

NetApiBuf f erFree ( buf ); 

} while ( rc == ERROR_MORE_DATA ) ; 

NetApiBuf f erFree { server ) ; 

#endif 
} 

void CScriptMDlg : : EnumerateLocalGroups ( void ) 

{ 

Groups = 0 ; 



if ( 



Enumeration 



{ 

#ifdef C4_WIN_NT 

SS2 . PrintMessage ( "Enumerating Local Groups..." ); 
GetLocalGroups 0 ; 

SS2 . PrintMessage { "Enumerating Global Groups..." ); 
GetGlobalGroups ( ) ; 

SS2 . PrintMessage ( "Enumerating Servers..." ); 
GetServers { ) ; 



SS2 . PrintMessage { "Enumerating Users ..." ) ; 
GetUsers {) ; 

#endif 



} 

} 

OptionDef ListType SPackDef List ; 
OptionDef ListType MBoxDefList; 



void CScriptMDlg: iLoadOptions ( void ) 

{ 

CString Line; 

OptionDef ListType* Cur = NULL; 

int l,p; 
char c ; 



char f n [MAX_PATH] ; 

sprintf ( fn, "sloptions.ini" ); 

FILE* f = fopen( fn, "r" ); 

if { f == NULL ) 

{ 

// MessageBox( "Cannot open Options.INI", "File Error", MB_OK | 

MB_ICONWARNING ) ; 

return; 

} 



fseek( f , 0, SEEK_END ) ; 

1 = ftell ( f ) ; 

fseek{ f, 0, SEEK_SET ); 

CString CurrentCat = ""; 

while ( ftell ( f ) < 1 ) 
{ 

c = fgetc { f ) ; 
Line = " " ; 

while ( c != 'Xn' && f tell ( f ) < 1 ) 
{ 

Line += c; 



c = f getc ( f ) ; 

} 

if ( Line == " [Message Box Defaults] " ) 

{ 

Cur = ficMBoxDef List ; 

} 

else 

if{ Line == " [ServicePacks] " ) 

{ 

Cur = ScSPackDef List ; 

} 

else 

if( Line == "[Shortcuts]" ) 
{ 

Cur = &ShortcutDef List ; 

} 

else 

if( Line.Left( 9 ) == " [MSOf f ice" ) 
{ 

Cur = &0f f iceDefList ; 
CurrentCat = Line.Mid{ 10 ); 

CurrentCat = CurrentCat . Left ( CurrentCat . GetLength ()- 1 ); 

bool used = false; 

f or { int x=0 ;x<Of f iceCats ;x++ ) 

if( Of f iceCatList [ x ] == CurrentCat ) used = true; 

if ( lused ) { Of f iceCatList [ OfficeCats ] = CurrentCat; 

Of f iceCats++ ; } ; 

} 

else 

if( Line === " [ShellFolders] " ) 
{ 

Cur = &ShellDefList ; 

} 

else 

if( Line == " [NTCommonShe 11 Folders] " ) 
{ 

Cur = &NTCFDefList ; 

} 

else 

if( Line. Left ( 9 ) "[Policies" ) 
{ 

Cur = ScPolicyDef List ; 
CurrentCat = Line. Mid { 10 ); 

CurrentCat = CurrentCat . Left ( CurrentCat . GetLength ()- 1 ); 

bool used = false; 

f or ( int x=0 ;x<PolicyCats ;x++ ) 

{ 



if ( PolicyCatList [x] == CurrentCat ) used = true; 

} 



if{ iused ) { PolicyCatList [ PolicyCats ] = CurrentCat; 

PolicyCats++; }; 

} 

else 

if( Line.GetLengthO == 0 ) 

{ 

} 

else 

if ( Line [0] == ' ; ' ) 

{ 

} 

else 

if { Cur == NULL ) 

{ 

} 

else 

{ 

Cur- >Def [Cur- >Defs] .Text = ""; 
Cur->Def [Cur->Def s] .OS = ""; 
Cur->Def [Cur->Def s] .Key = ""; 
Cur->Def [Cur->Def s] .Val = ""; 

P = 0; 
Line [p] ; 

while ( p < Line.GetLengthO Line [p] 1= ) 

{ 

Cur->Def [Cur->Def s] .Text += Line [p] ; 
p++; 

} 

P + + ; 

while ( p < Line.GetLengthO Line [p] != 

{ 

Cur->Def [Cur->Def s] .OS += Line [p] ; 
P++; 

} 

P++; 

// Add to != list if 3 entry item 

if ( Cur 1= ScNTCFDefList Cur != &ShellDef List && Cur 1 = 
&:ShortcutDefList Cur 1= &MBoxDefList ) 

{ 

while ( p < Line.GetLengthO && Line [p] != ) 

{ 

Cur->Def [Cur->Def s] . Key += Line [p] ; 
P++; 

} 

P++; 

} 



while { p < Line .GetLength ( ) && Line [p] != 

{ 

Cur->Def [Cur->Def s] . Val += Line [p] ; 

} 

if ( Cur == &0f f iceDef List ) 
{ 

CString T = " " ; 

Cur->Def [Cur->Def s] . File = false; 
P++ ; 

while ( p < Line .GetLength ( ) Line [p] 

{ 

T += Line [p] ; 
P++; 

} 

T.TrimLeft 0 ; 
T . TrimRight { ) ; 
T.MakeUpper {) ; 

if ( T == "FILE" ) 
{ 

Cur->Def [Cur->Def s] .File = true; 

} 

} 

Cur- >Def [Cur- >Defs] .Category = CurrentCat; 

if( Cur->Defs < 254 ) 
Cur- >Def S++ ; 



} 
} 

f close ( f ) ; 
Cur = NULL; 

sprintf ( fn, "slcustopt.ini" ); 
f = fopen( fn, "r" ) ; 
if ( f NULL ) 

{ 

return; 

} 

fseek( f, 0, SEEK_END ); 

1 = ftell ( f ) ; 

fseek( f , 0, SEEK_SET ) ; 



while ( ftell ( f ) < 1 ) 
{ 

c = f getc ( f ) ; 



Line = " " ; 

while ( c != '\n' f tell { f ) < 1 ) 
( 

Line += c; 

c = f getc { f ) ; 

} 

if( Line == "[Message Box Defaults]" ) 

{ 

Cur = &MBoxDef List ; 

} 

else 

if { Line == " [ServicePacks] " ) 

{ 

Cur = ScSPackDef List ; 

} 

else 

if( Line == "[Shortcuts]" ) 
{ 

Cur = ScShortcutDef List ; 

} 

else 

if( Line.Left( 9 ) == " [MSOf fice" ) 
( 

Cur = &0f f iceDefList ; 
CurrentCat = Line. Mid ( 10 ); 

CurrentCat = CurrentCat . Left ( CurrentCat .GetLength () -1 ); 

bool used = false; 

for( int x=0 ;x<Of f iceCats ;x++ ) 

if( Of f iceCatList [ x ] == CurrentCat ) used = true; 

if( lused ) { Of f iceCatList [ OfficeCats ] = CurrentCat; 

Of f iceCats++ ; } ; 

} 

else 

if{ Line == " [ShellFolders] " ) 
{ 

Cur = ScShellDefList ; 

} 

else 

if( Line === " [NTCommonS hell Folders ] " ) 

{ 

Cur = &NTCFDefList; 

} 

else 

if( Line. Left ( 9 ) "[Policies" ) 

{ 

Cur = ScPolicyDef List ; 
CurrentCat = Line. Mid ( 10 ); 



CurrentCat = CurrentCat . Lef t ( CurrentCat . GetLength ( ) - 1 ); 



bool used = false; 

f or ( int x=0 ;x<PolicyCats ;x++ ) 

{ 

if ( PolicyCatList [x] == CurrentCat ) used = true; 

} 

if( I used ) { PolicyCatList [ PolicyCats ] = CurrentCat; 

PolicyCats++ ; }; 

} 

else 

if( Line. GetLength {) == 0 ) 

{ 

} 

else 

if ( Line [0] == ' ; ' ) 

{ 

} 

else 

if ( Cur == NULL ) 

{ 

} 

else 

{ 

Cur- >Def [Cur- >Defs] .Text = ""; 
Cur->Def [Cur->Def s] .OS = ""; 
Cur->Def [Cur->Def s] .Key = ""; 
Cur->Def [Cur->Def s] .Val = ""; 

P = 0; 
Line [p] ; 

while { p < Line .GetLength { ) && Line [p] 1= ) 

{ 

Cur->Def [Cur->Def s] .Text += Line [p] ; 
P++ ; 

} 

P++; 

while ( p < Line .GetLength 0 Line [p] != ',') 

{ 

Cur->Def [Cur->Def s] .OS += Line [p] ; 
P++; 

} 

P + + ; 



// Add to != list if 3 entry item 

if ( Cur != ScNTCFDefList && Cur i= ScShellDef List Cur ! = 
£cShortcutDef List Cur != ficMBoxDef List ) 

{ 

while ( p < Line .GetLength ( ) && Line [p] != ',' ) 
{ 

Cur->Def [Cur->Def s] .Key += Line [p] ; 



P++; 

} 

P+ + ; 

} 



_ I I 



while ( p < Line.GetLengthO Line [p] 

{ 

Cur->Def [Cur->Def s] .Val += Line [p] ; 
P++; 

} 

if( Cur == &0f f iceDefList ) 

{ 

CString T = ""; 

Cur->Def [Cur->Def s] . File = false; 
P++; 

while ( p < Line.GetLengthO && Line [p] 

{ 

T += Line [p] ; 
P++; 

} 

T.TrimLef t {) ; 
T. TrimRight ( ) ; 
T.MakeUpper ( ) ; 

if ( T == "FILE" ) 
{ 

Cur->Def [Cur->Def s] . File = true; 

} 

} 

Cur- >Def [Cur- >Defs] . Category = CurrentCat; 

if( Cur->Defs < 254 ) 
Cur- >Def S++ ; 



f close ( f ) ; 
/* 

while ( ftelK f ) < 1 ) 
{ 

c = f getc { f ) ; 
Line = " " ; 

while( c 1= '\n' f tell ( f ) < 1 ) 
{ 

Line += c; 

c = f getc ( f ) ; 

} 



if ( Line == " [Shortcuts] " ) 
{ 

Cur = ScShortcutDefList ; 

} 

else 

if( Line == " [ListLimits] " ) 
{ 

Cur = NULL; 

} 

else 

if( Line == " [MSOf f ice] " ) 
{ 

Cur = £cOf f iceDefList ; 

} 

else 

if ( Line == " [ShellFolders] " ) 
{ 

Cur = ScShellDef List ; 

} 

else 

if( Line =^ " [NTCommonShellFolders] " ) 

{ 

Cur = &NTCFDefList; 

} 

else 

if( Line == "[Policies]" ) 
{ 

Cur = ScPolicyDef List ; 

} 

else 

if ( Line.GetLengthO == 0 ) 

{ 
} 

else 

if ( Line [0] == ' ; ' ) 

{ 
} 

else 

if ( Cur == NULL ) 

{ 

} 

else 
{ 

Cur- >Def [Cur- >Defs] .Text = ""; 
Cur->Def [Cur->Def s] .OS = 
Cur->Def [Cur->Defs] .Key = 
Cur->Def [Cur->Def s] .Val = ""; 

P = 0; 
Line [p] ; 



while ( p < Line.GetLengthO ScSc Line [p] 



{ 

Cur- >Def [Cur- >Defs] .Text += Line [p] ; 
P++; 

} 

P + +; 

while { p < Line . GetLength ( ) Line [p] I- ',') 

{ 

Cur->Def [Cur->Def s] .OS += Line [p] ; 
P++; 

} 

P++; 

if( Cur != &NTCFDefList Cur ! = • &ShellDef List Cur 1= 

&ShortcutDef List ) 

{ 

while ( p < Line .GetLength 0 && Line [p] != ) 

{ 

Cur- >Def [Cur- >Def s] . Key += Line [p] ; 
P++; 

} 

P++; 

} 

while ( p < Line. GetLength {) && Line [p] != ) 

{ 

Cur->Def [Cur->Def s] .Val += Line [p] ; 
P++; 

} 

if{ Cur == &0f f iceDef List ) 
{ 

CString T = " " ; 

Cur->Def [Cur->Def s] . File = false; 
P++; 

while( p < Line .GetLength { ) && Line [p] !=',') 
{ 

T Line [p] ; 
P++; 

} 

T.TrimLeft 0 ; 
T.TrimRight {) ; 
T .MakeUpper ( ) ; 

if ( T == "FILE" ) 
{ 

Cur->Def [Cur->Def s] .File = true; 

} 

} 

Cur- >Def [Cur- >Defs] . Category = CurrentCat; 



if ( Cur->Def s < 254 ) 
Cur- >Def S++ ; 



Cur->Def [Cur->Def s] .Text = ""; 
Cur->Def [Cur->Def s] .OS = ""; 
Cur->Def [Cur->Def s] .Key = ""; 
Cur->Def [Cur->Def s] .Val = ""; 

P = 0; 
Line [p] ; 

while ( p < Line.GetLengthO && Line [p] != ',') 
{ 

Cur->Def [Cur->Def s] .Text += Line [p] ; 
P++; 

} 

P++; 

while { p < Line.GetLengthO Line [p] 1= ) 

{ 

Cur->Def [Cur->Def s] .OS += Line [p] ; 
p-f+; 

} 

P++ ; 

if ( Cur != ScNTCFDefList && Cur 1= ScShellDef List 
{ 

while ( p < Line.GetLengthO 8c8c Line [p] ! = 

{ 

Cur->Def [Cur->Def s] .Key += Line [p] ; 
P++; 

} 

P + +; 

} 

while ( p < Line.GetLengthO ScSc Line [p] ) 

{ 

Cur->Def [Cur->Def s] .Val += Line [p] ; 
P++; 

} 

Cur- >Def S++ ; 

} 

} 

*/ 



} 



void CScriptMDlg: iLoadMacroDef s { void ) 

{ 

char c ; 



int 



1; 



char f n [MAX_PATH] ; 

sprintf ( fn, "slmacros.ini" ); 

FILE* f = fopen{ fn, "r" ); 

if { f == NULL ) 

{ 

// MessageBox( "Cannot open macrodef.ini", "File Error", MB__OK 

MB_ICONWARNING ) ; 

return; 

} 

fseek( f, 0, SEEK_END ); 

1 = ftell { f ) ; 

f seek( f , 0, SEEK_SET ) ; 

while ( ftell ( f ) < 1 ) 
{ 

c = f getc ( f ) ; 

MacroDef List .MacroDef [MacroDef List .MacroDefs] .OS = ""; 
while( (c != '\n' c != ',') (ftell ( f ) < 1) ) 

{ 

MacroDef List .MacroDef [MacroDef List .MacroDef s] .OS += c 
c = fgetc ( f ) ; 

} 

c = fgetc { f ) ; 

MacroDef List .MacroDef [MacroDef List .MacroDef s] .Macro = ""; 

while( (c != '\n' && c != ',') && (ftelK f ) < 1) ) 

{ 

MacroDef List .MacroDef [MacroDef List .MacroDef s] .Macro + 
c = fgetc ( f ) ; 

} 

c = fgetc ( f ) ; 

MacroDef List .MacroDef [MacroDef List .MacroDef s] .Text = ""; 
while( (c 1= '\n' c != ',') && {ftelK f ) < 1) ) 
{ 

MacroDef List .MacroDef [MacroDefList .MacroDef s] .Text += 
c = fgetc ( f ) ; 

} 



MacroDefList . MacroDef s + + ; 

} 

f close ( f ) ; 



void DoubleAmps ( CString& s ) 

{ 

int X; 

f or { x=0 ;x<s . GetLength ( ) ;x++ ) 



{ 

if ( s[x] == ) 
{ 

s = s.Left(x) + + s .Right (s .GetLength 0 -x) ; 

X++ ; 

} 

} 

} 

bool GetBitmapAndPalette (UINT nIDResource, CBitmap ^bitmap, CPalette &pal) 

{ 

LPCTSTR IpszResourceName = IVIAKEINTRESOURCE (nIDResource) ; 

HBITI^P hBmp = (HBITMAP) : : Loadlmage ( Af xGetResourceHandle ( ) , 
IpszResourceName, IIVIAGE^BITMAP, 0,0, 

LR_CREATEDIBSECTION ) ; 

if ( hBmp == NULL ) 

return FALSE; 

bitmap.Attach( hBmp ) ; 

// Create a logical palette for the bitmap 
DISSECTION ds; 

BITMAPINFOHEADER ficbmlnfo = ds.dsBmih; 
bitmap. GetObj act ( sizeof{ds), tds ); 

int nColors = bminf o . biClrUsed ? bminf o.biClrUsed : 1 << 
bminf o . biBitCount ; 

// Create a halftone palette if colors > 256. 
CClientDC dc (NULL) ; // Desktop DC 

if( nColors > 256 ) 

{ 

pal .CreateHalf tonePalette ( &dc ) ; 

} 

else 

{ 

// Create the palette 

RGBQUAD *pRGB = new RGBQUAD [nColors] ; 
CDC memDC; 
CBitmap memBitmap; 
CB i t map * o 1 dB i t map ; 
memDC. CreateCompatibleDC (&dc) ; 
memBitmap . CreateCompatibleBitmap (fcdc , 
bitmap. GetBitmapDimension ( ) .ex, bitmap . GetBitmapDimension { ) .cy) ; 

oldBitmap = (CBitmap* ) memDC . SelectObj ect ( &memBitmap ); 
: :GetDIBColorTable ( memDC, 0, nColors, pRGB ); 

UINT nSize = sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 

nColors) ; 



LOGPALETTE *pLP = (LOGPALETTE *) new BYTE [nSize] / 



pLP->palVersion = 0x3 00; 
pLP->palNumEntries = nColors; 

for( int i=0; i < nColors; i++) 

{ 

pLP->palPalEntry [i] .peRed = pRGB [i] . rgbRed; 
pLP->palPalEntry [i] .peGreen = pRGB[i] .rgbGreen; 
pLP'>palPalEntry [i] .peBlue = pRGB [i] . rgbBlue ; 
pLP->palPalEntry [i] .peFlags = 0; 

} 

pal .CreatePalette ( pLP ); 

delete [] pLP; 
delete [] pRGB; 

memDC. SelectObject (oldBitmap) ; 

} 

return TRUE; 

} 

extern void TrimString ( CString& s ); 
void LoadDef aults ( void ) 

{ 

ParselNI pi ( true ) ; 
CString t; 

sprintf ( Def aultGroup, ); 
Default95 = true; 
Default98 = true; 
DefaultNT = true; 
DefaultLAN = true; 
DefaultRAS = true; 
PromptDelete = true; 

char tl [256] ; 

sprintf ( tl, " " ) ; 

if{ pi.OpenINI( "slmgr.ini" ) ) 

{ 

pi.SkipWhite = false; 
pi . FindValue ( "LastTab", tl ) ; 
if ( strcmp( tl, " " ) ) 
sprintf { LastPage, "%s", tl ); 
pi.SkipWhite = true; 

pi . FindValue ( "Def aultGroup" , tl ) ; 

if ( strcmp( tl, " " ) ) 

sprintf ( DefaultGroup, "%s", tl ); 



pi . FindValue ( " PromptDelete" , tl ); 
t = tl; 

t .MakeUpper {) ; 

if{ t == "NO" ) PromptDelete = false; 

pi . FindValue ( "DefaultValType" , tl )/ 
t = tl; 

t . MakeUpper ( ) ; 
char* tcp; 

DefaultVType = strtol { (LPCTSTR)t, &tcp, 10 ); 

pi.FindValue{ "Default95", tl. ); 
t = tl; 

t . MakeUpper ( ) ; 

if( t == "NO" ) Default95 = false; 



pi . FindValue ( "Default98", tl ); 
t = tl; 

t .MakeUpper ( ) ; 

if{ t == "NO" ) Default98 = false; 

pi . FindValue ( "DefaultNT", tl ); 
t = tl; 

t .MakeUpper { ) ; 

if{ t == "NO" ) DefaultNT = false; 

pi . FindValue ( "Def aultTSC" , tl ); 
t = tl; 

t .MakeUpper ( ) ; 

if ( t "NO" ) DefaultTSC = false; 

pi . FindValue { "Def aultNTS " , tl ); 
t = tl; 

t . MakeUpper ( ) ; 

if( t == "NO" ) DefaultNTS = false; 

pi . FindValue ( "Def aultLAN" , tl ); 
t = tl; 

t . MakeUpper ( ) ; 

if { t == "NO" ) DefaultLAN = false; 

pi . FindValue ( " ListHidden" , tl ); 
t = tl; 

t .MakeUpper { ) ; 

if ( t "NO" ) ListHidden = false; 

pi . FindValue ( "Def aultRAS" ; tl ); 
t = tl; 

t .MakeUpper { ) ; 

if( t == "NO" ) DefaultRAS = false; 



pi . FindValue ( "UserGroup" , tl ); 
if{ strcmp( tl, - " ) ) 



SysLangUsers = tl; 



pi . FindValue ( " EveryoneGroup" , tl ); 
if( strcmp( tl, " " ) ) 
SysLangEveryone = tl; 

pi . FindValue ( "DomainAdminGroup" , tl ); 
if( strcmp( tl, " " ) ) 
SysLangDomainAdmins = tl ; 

pi . FindValue ( "AdministratorsGroup" , tl ); 
if( strcmp( tl, " " ) ) 
SysLangAdministrators = tl; 

pi . FindValue { "Enumeration", tl ); 

if{ strcmp( tl, " " ) ) 

{ 

if( strcmp{ tl , "0" ) == 0 ) 
{ 

Enumeration = false; 

} 

} 

SysLangUsers . TrimLef t ( ) ; 
SysLangUsers .TrimRight ( ) ; 
SysLangEveryone . TrimLef t ( ) ; 
SysLangEveryone . TrimRight ( ) ; 
SysLangDomainAdmins . TrimLef t { ) ; 
SysLangDomainAdmins . TrimRight ( ) ; 
SysLangAdministrators . TrimLef t ( ) ; 
SysLangAdministrators . TrimRight { ) ; 

} 

} 

void SaveDef aults ( void ) 

{ 

INIFileWrapper slini ( "slmgr.ini", true ); 

slini . SetValue ( "Def aultGroup" , Def aultGroup, "Defaults" 

char temps [256] ; 
char* tcp; 

_itoa( Def aultVType, temps, 10 ); 

slini .SetValue ( "Def aultValType " , temps, "Defaults" ); 
if ( PromptDelete ) 

{ 

slini .SetValue ( "PromptDelete", "Yes", "Defaults" 

} 

else 

{ 

slini. SetValue ( "PromptDelete", "No", "Defaults" ) 

} 



if( Default95 ) 

slini .SetValue ( "Default95", "Yes", "Defaults" ); 

else 

slini .SetValue ( "Default95", "No", "Defaults" ); 

if( Defauit98 ) 

slini .SetValue { "Default98", "Yes", "Defaults" )/ 

else 

slini .SetValue { "Default98", "No", "Defaults" ); 

if( DefaultNT ) 

slini. SetValue ( "DefaultNT", "Yes", "Defaults" ); 

else 

slini .SetValue ( "DefaultNT", "No", "Defaults" ); 

if( DefaultNTS ) 

slini. SetValue ( "DefaultNTS", "Yes", "Defaults" ) ; 

else 

slini. SetValue ( "DefaultNTS", "No", "Defaults" ); 

if( DefaultTSC ) 

slini. SetValue ( "DefaultTSC", "Yes", "Defaults" ); 

else 

slini. SetValue ( "DefaultTSC", "No", "Defaults" )/ 

if( ListHidden ) 

slini. SetValue ( "ListHidden", "Yes", "Defaults" ); 

else 

slini. SetValue ( "ListHidden", "No", "Defaults" ); 



if{ DefaultLAN ) 

slini.SetValue ( "DefaultLAN", "Yes", "Defaults" ); 

else 

slini .SetValue ( "DefaultLAN", "No", "Defaults" )/ 



if( DefaultRAS ) 

slini .SetValue { "DefaultRAS", "Yes", "Defaults" ); 

else 

slini .SetValue { "DefaultRAS", "No", "Defaults" ); 

} 

void SaveTargetList ( void ) 

{ 

INIFileWrapper slini ( "slmgr.ini", true ); 

int TN = Targets; 

for{ int x=0;x<256;x++ ) 

{ 

char temps[2 56]; 

sprintf ( temps, "Target%i", x ); 
slini . DeleteValue { temps ) ; 

} 

for( X = 0; x<Targets; x++ ) 

{ 

char temps [256]; 

sprintf ( temps, "Target%i", TN ) ; 
TN- - ; 

slini . SetValue { temps, TargetList [x] , "Targets" ); 

} 

slini .SetValue ( "Scripts", Def aultTarget , "File Locations" ); 

} 

void LoadTargetList { void ) 

{ 

ParselNI pi ( true ) ; 
CString t; 
Targets = 0; 



char tl [256] ; 



sprintf ( tl, " " ) ; 

INIToken tok; 

if( pi.OpenINI{ "slmgr.ini" ) ) 

{ 

while ( Ipi.atEnd ) 



{ 



tok = pi .NextToken {) ; 



if ( tok. Type 
{ 



INI TOKEN VARIABLE ) 



CString 1; 



} 



void GetASmgrPathO 
{ 

HKEY k; 



1 = tok . Name ; 
1 = l.Left ( 6 ) ; 
1 .MakeUpper ( ) ; 



if{ 1 == "TARGET" ) 
{ 

TargetList [Targets] = tok. Valued- 
Target s++ ; 



DWORD disp; 

if( RegCreateKeyEx ( HKEY_LOCAL_MACHINE , "Sof tware\\Inteletek\\AutoShare" , 
0, NULL, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS , NULL, &k, Scdisp ) = = 
ERROR SUCCESS ) 



{ 



if{ disp == REG_OPENED_EXISTING_KEY ) 
{ 

Char path [MAX_PATH] ; 
DWORD size = MAX PATH; 



if( RegQue r y Value Ex { k, "MangerPath" , NULL, NULL, (unsigned 
char*) (path) , &size ) == ERROR_SUCCESS ) 

{ 

ASmgrPath = path; 

} 



RegCloseKey ( k ) ; 

} 

} 



CString UserLic; 
extern DWORD dwNumLic; 
CString LogonServer; 



void GetUserInf o ( ) 

{ 

static DWORD count; 
static char buf[256]; 
static char* b; 
count = 256; 

HKEY DisplayKey; 

RegOpenKeyEx ( HKEY_CURRENT_USER, " Sof tware\\ScriptLogic " , 0, 
KEY_ALL_ACCESS, &DisplayKey ); 

if{ RegQueryValueEx( DisplayKey, "UserLicense " , 0, NULL, (LPBYTE)buf; 
&count ) == ERROR_SUCCESS ) 
{ 

// TODO : if license's <= 0 then Evaluation Edition 
UserLic = buf ; 

} 

else 

{ 

UserLic = "Evaluation Edition"; 

} 

count = 256; 

if{ RegQueryValueEx ( DisplayKey, "LogonServer", 0, NULL, (LPBYTE)buf, 
&count ) == ERROR_SUCCESS ) 
{ 

LogonServer = buf; 

} 

else 

{ 

LogonServer = " " ; 

} 

count = sizeof{ DWORD ); 

if( RegQueryValueEx { DisplayKey, "Licenses", 0, NULL, 
reinterpret_cast<unsigned char* > (&:dwNumLic ) , &count ) == ERROR_SUCCESS ) 

{ 
} 

else 

{ 

dwNumLic = -1; 

} 

RegCloseKey( DisplayKey ); 



BOOL CScriptMDlg: :OnInitDialog() 
{ 



bl.AutoLoad( IDC_BITMAP2, this ); 
GetBitmapAndPalette ( IDB_BITMAP17 , MyBitmap, MyPalette )/ 
if{ nosave ) 

{ 

m_Bottom = "Log-View Only"; 

} 

else 

{ 

m_BottoTn = "Script Folder: "; 
m_BottOTn ScriptPath; 

} 

m_Top = "Version 3.03 Pro" ; 

oxDib.LoadResource ( MAKE INTRE SOURCE (I DB_BITMAP17 ) , FALSE ); 
CDialog: : OnlnitDialog { ) ; 

m_SS.LoadBitmap( MAKEINTRESOURCE ( IDB_BITMAP17 ) ); 

m_EB.LoadBitmap ( MAKEINTRESOURCE ( IDB_GREEN ), FALSE ); 

//EnumerateFunc ( NULL ); 

NotepadHandle = NULL; 
NotepadHandle2 = NULL; 
SMHandle = NULL; 

// Add "About. . menu item to system menu. 

// IDM__ABOUTBOX must be in the system command range. 
ASSERT ( {IDM_ABOUTBOX & OxFFFO) == IDM_ABOUTBOX) ; 
ASSERT (I DM_ABOUTBOX < OxFOOO); 

CMenu* pSysMenu = GetSystemMenu (FALSE) ; 

if (pSysMenu 1= NULL) 

{ 

CString strAboutMenu; 

strAboutMenu . LoadString ( IDS_ABOUTBOX) ; 
if ( I StrAboutMenu . IsEmpty ( ) ) 

{ 

pSysMenu- >AppendMenu (MF_SEPARATOR) ; 

pSysMenu- >AppendMenu (MF_STRING, IDM_ABOUTBOX, StrAboutMenu) 

} 

} 

// Set the icon for this dialog. The framework does this automatically 
// when the application's main window is not a dialog 
Setlcon (m_hIcon, TRUE); // Set big icon 

SetIcon(m hicon, FALSE); // Set small icon 



SS2 . PrintMessage { "Loading Defaults..." ); 



LoadDe faults ( ) ; 



SS2 . PrintMessage ( "Loading Options ..." ) ; 
LoadOptions ( ) ; 

SS2 . PrintMessage ( "Loading Macro Definitions..." ); 
LoadMacroDef s () ; 

SS2 . PrintMessage { "Loading Target List. . . " ) ; 

LoadTargetList {) ; 

GetUserInf o { ) ; 

GetASmgrPath { ) ; 

bool SPfound = false; 

for( int x=0 ;x<Targets;x++ ) 

{ 

CString tl,t2; 

tl = TargetList [x] ; 

t2 = ScriptPath; 

tl .MakeUpper 0 ; 
t2 .MakeUpper {) ; 

if ( tl == t2 ) SPfound = true; 
m_LocationC. AddString ( TargetList [x] ) ; 

} 

if( ! SPfound ) 
{ 

TargetList [x] = ScriptPath; 
Targets++ ; 

m_LocationC. AddString ( TargetList [x] ) ; 

} 

m_Location = ScriptPath; 

SS2 . PrintMessage ( "Loading Configuration..." ); 
S .LoadScript ( ) ; 

S . SaveScript ( "SLconf ig . bak" ); 

char tl [256] ; 
char t2 [256] ; 

sprintf( tl, "%s\\slconf ig.bak" , (LPCTSTR) ScriptPath ); 
sprintf{ t2, " %s\\sltest . val " , (LPCTSTR) ScriptPath ); 
CopyFile{ tl, t2, FALSE ); 



if( ASmgrPath != "" ) m_ASmgr . EnableWindow ( TRUE ); 
m SS . EnableWindow ( FALSE ) ; 



// m_User .SubclassDlgItem( IDC_KEy2, this ) ; 

// m_User.SetTextColor { RGB ( 0,0,0 ) ); 

// m_User.SetBkColor ( RGB ( 255,255,255 ) ); 

// m_Company .SubclassDlgItem( IDC_COMPANY, this ); 

// m_Company . SetTextColor ( RGB ( 0,0,0 ) ); 

// m_Company.SetBkColor ( RGB ( 255,255,255 ) ); 

// m_Company .SetBkColor { RGB ( 20,0,130 ) ); 

// m_Key.SubclassDlgItem( IDC_KEY, this ) ; 

// m_Key. SetTextColor ( RGB ( 0,0,0 ) ); 

// m_Key. SetBkColor ( RGB ( 255,255,255 ) ) ; 

// m_Key. SetBkColor ( RGB ( 2 0,0,13 0 ) ) ; 



DoubleAmps ( CompanyName ) / 

Double Amps ( RegKey ) ; 
// ( (CStatic*) GetDlgItem( IDC_COMPANY ) ) - >SetWindowText ( CompanyName ); 
// ( (CStatic*) GetDlgItem( IDC_KEY ) ) - >SetWindowText { RegKey ) ; 
// ( (CStatic*) GetDlgltemC IDC_KEY2 ) ) - >SetWindowText ( UserLic )/ 

UpdateData ( FALSE ) ; 

EnumerateLocalGroups ( ) ; 

SetTimer( 1, 500, MULL ); 

char temps [2 56] ; 

sprintf( temps, " %s\\slconf ig . Ick" , ScriptPath ); 

char cname[256]; 
char uname [2 56] ; 
sprint f ( cname, "" ) ; 
sprint f ( uname, ) ; 

GetEnvironmentVariable ( "UserName", uname, 256 ); 
GetEnvironmentVariable ( "ComputerName" , cname, 256 ) ; 

SS2 . PrintMessage ( "Updating Lock File..." ); 

sprintf{ temps, " %s\\slconf ig . Ick" , ScriptPath ) ; 
if( GetFileAttributes ( temps ) 1= OxFFFFFFFF ) 

{ 

// ScriptFileHandle = CreateFile( temps, GENERIC_READ, 

FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORiyiAL , NULL ) ; 
FILE* f = fopen( temps, "r" ); 

CString ts2 = "another administrator on the network"; 



if ( f == NULL ) 
{ 



} 

else 
{ 

fseek( f , 0, SEEK_END ) ; 
int 1 = ftelK f ) ; 
fseek{ f, 0, SEEK_SET ); 
ts2 = ""; 

f or ( int x=0;x<l;x++ ) 

{ 

ts2 += fgetc ( f ) ; 

} 

f close { f ) ; 

} 



DWORD br; 

// , ReadFile{ ScriptFileHandle , temps, GetFileSize{ ScriptFileHandle , 

NULL ) , &br, NULL ) ; 

CString ts = ResString( IDS_EDITEDBY1 ); 

ts += ts2; 

ts += ResString( IDS_EDITEDBY2 ); 

SS2 .Showd, NULL ) ; 
// SS.StopO; 

MessageBox( (LPCTSTR)ts, ResString ( IDS_WARNING ), MB_OK | 
MB_ICONHAND ) ; 
} 

else 
{ 

ScriptFileHandle = CreateFile( temps, GENERIC_WRITE | GENERIC_READ, 
FILE_SHARE_READ, NULL, GREAT E_ALWAY S , FILE_ATTRIBUTE_HIDDEN, NULL ); 
sprintf { temps, "%s on %s", uname, cname ); 
DWORD bw; 

WriteFile( ScriptFileHandle, temps, strlen( temps ), &bw, NULL ) ; 
CloseHandle( ScriptFileHandle ) ; 

} 

if( ScriptPath. Right ( strlen{ " import\\scripts" ) ) . CompareNoCase ( 
" importWscripts" ) 0 ) 

{ 

runbenabled = false; 
m_runrb.EnableWindow( FALSE ); 
// m_editrb.EnableWindow( FALSE ); 

} 

if( GetFileAttributes ( (LPCTSTR) (ScriptPath + "\\repl.bat") ) == 
OxFFFFFFFF ) 
{ 

runbenabled = false; 
m_runrb.EnableWindow{ FALSE ); 

} 

if( nosave ) 

{ 

m SUB.EnableWindow{ FALSE ) ; 



m_SS.EnableWindow( FALSE ); 
m_editrb. EnableWindow { FALSE ) ; 
runbenabled = false; 
m_runrb . EnableWindow { FALSE ); 
m_cs. EnableWindow ( FALSE ); 
m_bl .EnableWindow { FALSE ); 

} 

SS2 .Showd, NULL ) ; 
// SS.StopO; 

if ( ForceDirty ) 
{ 

ExitState = EXIT_NOSAVE; 
m__EB . Removelmage ( FALSE ); 

m_EB. Loads it map ( MAKEINTRESOURCE ( IDB_RED ), FALSE ); 

m_EB. Invalidate ( ) ; 

m_SS. EnableWindow ( TRUE ); 

} 



return TRUE; // return TRUE unless you set the focus to a control 



void CScriptMDlg: :OnSysCommand(UINT nID, LPARAM IParam) 

{ 

if ( (nID & OxFFFO) == IDM_ABOUTBOX) 
{ 

CAboutDlg dlgAbout; 
dlgAbout . DoModal ( ) ; 

} 

else 

{ 

CDialog: : OnSys Command (nID, IParam) ; 

} 

} 



int FileSize( FILE* f ) 
{ 

fseek( f, 0, SEEK_END ); 
int 1 = f tell ( f ) ; 
fseek{ f, 0, SEEK_SET ); 
return 1 ; 

} 

int FileSame{ char* f nl , char* fn2 ) 
{ 

FILE* fl = fopen( fnl, "rb" ); 
FILE* f2 = fopen{ f n2 , "rb" ); 



if { fl == MULL ) return true; 
if{ f2 == NULL ) return true; 



int 11,12; 



11 = FileSize ( f 1 ) ; 

12 = FileSize ( f 2 ) ; 

if{ 11 != 12 ) 
{ 

f close { f 1 ) ; 
f close ( f 2 ) ; 
return false; 

} 

int X ; 

f or ( x=0;x<ll;x++ ) 

{ 

if( fgetc{ fl ) 1= fgetc( f2 ) ) 
{ 

f close ( f 1 ) ; 
f close ( f 2 ) ; 
return false; 

} 

} 

f close ( f 1 ) ; 
f close ( f 2 ) ; 
return true ; 

} 

bool ForceDirty = false; 

int CScriptMDlg : : isDirty ( void ) 

{ 

if ( nosave ) return false; 

if ( ForceDirty ) return true; 

char tl [256] ; 
char t2 [256] ; 

sprintf( tl, "%s\\temp.out" , (LPCTSTR) ScriptPath ); 
sprintf( t2, " %s\\sltest . val " , (LPCTSTR) ScriptPath ); 

S .SaveScript ( "temp. out" ); 

if( GetFileAttributes { t2 ) == OxFFFFFFFF ) return true; 

if( FileSame( tl, t2 ) ) 
{ 

DeleteFile { tl ) ; 
return false; 

} 



DeleteFile { tl ) ; 



ExitState = EXIT_NOSAVE; 
m_EB . Removelmage ( FALSE ) ; 

m_EB. Loads i tmap ( MAKEINTRESOURCE ( IDB_RED ), FALSE ); 
m_EB . Invalidate { ) ; 

return true; 

} 

// If you add a minimize button to your dialog, you will need the code below 
// to draw the icon. For MFC applications using the document/view model, 
// this is automatically done for you by the framework. 

bool PlaceBitmap (CDC* dc, UINT nIDResource, int x, int y, int xs, int ys) 
{ 

// Create a memory DC compatible with the paint DC 

CDC memDC; 

CBitmap memBitmap; 

CB i tmap * o 1 dB i tmap ; 

memDC. CreateCompatibleDC{dc) ; 

memBitmap. CreateCompatibleBitmap{dc, xs, ys) ; 

CBitmap bitmap; 
CPalette palette; 

GetBitmapAndPalette ( nIDResource, bitmap, palette ); 
oldBitmap = (CBitmap*)memDC.SelectObject (^bitmap) ; 

// Select and realize the palette 

if ( dc->GetDeviceCaps (RASTERCAPS) & RC_PALETTE && palette . m_hObj ect 1= 

NULL ) 

{ 

dc->SelectPalette ( &:palette, FALSE ); 
dc->RealizePalette {) ; 

} 

dc->BitBlt {x, y, xs, ys, &memDC, 0, 0,SRCCOPY); 

memDC. SelectObj ect (oldBitmap) ; 
return TRUE; 

} 

void CScriptMDlg: :OnPaint 0 

{ 

if (Islconic () ) 
{ 

CPaintDC dc(this); // device context for painting 

SendMessage (WM_ICONERASEBKGND , (WPARAM) dc . GetSaf eHdc () , 0) ; 

// Center icon in client rectangle 

int cxicon = GetSystemMetrics (SM_CXICON) ; 



int cylcon = GetSystemMetrics (SM_CYICON) ; 
CRect rect; 
GetClientRect (Screct) ; 

int X = (rect .Width 0 - cxicon + 1) / 2; 
int y = (rect .Height ( ) - cylcon +1) / 2; 



// Draw the icon 

dc .Drawlcon (x, y, m_hIcon) ; 

} 

else 
{ 

CPaintDC dc (this) ; 



RECT r; 

r . top = 6 ; 

r.left = 14; 

r. hot torn = 40; 

r. right = 40; 

MapDialogRect ( ScT 



int X = 

int y = 

int xs 

int ys 



r.left; 

r . top; 
= 202; 
= 214; 



CDC memDC; 

CBitmap memBitmap; 

CBitmap* oldBitmap; 

memDC. CreateCompatibleDC (&dc) ; 

memBitmap. CreateCompatibleBitmap{&:dc, xs, ys) ; 
OldBitmap = (CBitmap* ) memDC . SelectObj ect ( ^MyBitmap) ; 



NULL ) 



// Select and realize the palette 

if ( dc.GetDeviceCaps (RASTERCAPS) & RC_PALETTE && MyPalette . m_hObj ect 1= 
{ 

dc .SelectPalette ( &MyPalette, TRUE ); 
dc .RealizePalette ( ) ; 

} 

dc.BitBlt(x, y, xs, ys, &memDC, 0, 0,SRCCOPY); 
memDC. SelectObj ect (oldBitmap) ; 
oxDib.Draw( &:dc , x,y ) ; 



CFont* OF; 
CFont CP; 

CF.CreatePointFont ( 80, "MS Sans Serif" ); 



OF = dc .SelectObj ect ( &CF ) 



// 37,78 
// 37,86 
// 37, 94 



// { (CStatic*)GetDlgItem( IDC_COiyiPANY ) ) - >SetWindowText ( CompanyName ); 
// ( (CStatic*)GetDlgItem( IDC_KEY ) ) - >SetWindowText { RegKey ); 
// ( (CStatic*)GetDlgItem( IDC_KEY2 ) ) - >SetWindowText ( UserLic ); 

dc. SetTextColor ( RGB (0,0,0) ) ; 
dc.SetBkMode { TRANSPARENT ) ; 

r.top =83; 

r.left = 21; 

r. bottom = 140; 

r. right = 142; 

MapDialogRect ( fcr ) ; 

X = r.left; 

y = r.top; 

dc. ExtTextOut { x,y, ETO_CLIPPED, ScT , CompanyName, 
CompanyName.GetLengthO , NULL ); 

r.top =93; 

r.left = 21; 

r. bottom = 140; 

r. right = 142; 

MapDialogRect ( Scr ) ; 

x = r.left; 

y = r.top; 

dc . ExtTextOut ( x,y, ETO_CLIPPED, Scr, UserLic, UserLic . GetLength () , 

NULL ) ; 

/* 

r.top = 92; 

r.left = 37; 

r. bottom = 14 0; 

r. right = 140; 

MapDialogRect ( &r ) ; 

X = r.left; 

y = r.top; 

dc.TextOut( x,y, UserLic ); 

*/ 

dc .SelectObject ( OF ); 
CDialog: -.OnPaint () ; 

} 

} 

// The system calls this to obtain the cursor to display while the user drags 

// the minimized window. 

HCURSOR CScriptMDlg: : OnQueryDraglcon ( ) 

{ 

return (HCURSOR) m_hIcon; 

} 



int CScriptMDlg: :DoModal { ) 

{ 

return CDialog: :DoModal () ; 

} 

void CScriptMDlg: :OnButtonl 0 

{ 

S .UpdateSheet ( PS ) ; 
PS.DoModal {) ; 
S.UpdateScript ( PS ) / 

if( isDirty( ) ) 

{ 

Exits tate = EXIT_NOSAVE; 
m_EB. Remove Image ( FALSE ); 

m_EB.LoadBitmap ( MAKEINTRESOURCE ( IDB_RED ), FALSE ); 

m_EB. Invalidate ( ) ; 

m_SS . EnableWindow { TRUE ); 

} 

} 

void CScriptMDlg: :0nButton2 0 
{ 

// TODO: Add your control notification handler code here 
int r; 

char tl [256] ; 
int dir = true; 
if( isDirtyO ) 

if( (r = MessageBox{ ResString( IDS_SAVE ), ResString{ IDS_SLMGR ), 
MB_YESNOCANCEL | MB_ICONWARNING ) ) == IDYES ) 
{ 

dir = true; 

Repl = false; 

ForceDirty = false; 

S . SaveScript ( ) ; 

m_SS. EnableWindow ( FALSE ); 

S .SaveScript ( "sltest.val" ); 

if ( OnSaveCommand != ) 

{ 

system( (LPCTSTR) OnSaveCommand ); 

} 

} 

else 

{ 

dir = false; 

} 

if ( r == IDCANCEL ) return; 



CString SP = ScriptPath; 



SP.MakeUpper ( ) ; 

// if{ !Repl ScSc (SP. Right ( strlen( "Export\\Scripts " ) ) = = 
"EXPORTWSCRIPTS" ) ) 

// if ( dir && IRepl ) 

if( ExitState == EXIT_NOSAVE || ExitState == EXIT_NOPUB ) 

if{ GetFileAttributes { (LPCTSTR) (ScriptPath + "\\repl.bat") ) != 

OxFFFFFFFF ) 

if( ScriptPath. Right ( strlen( " import\\scripts " ) ) . CompareNoCase ( 
"importWscripts" ) != 0 ) 
{ 

if( (r = MessageBox( ResString( IDS_REPL ), ResString( IDS_SLMGR ), 
MB_YESNOCANCEL | MB_ICONWARNING ) ) == IDYES ) 
{ 

OnReplbatch ( ) ; 

} 

} 

if( r == IDCANCEL ) 
{ 

return; 

} 

CloseHandle ( ScriptFileHandle ); 

sprintf ( tl, "%s\\sltest . val" , (LPCTSTR) ScriptPath ); 
DeleteFile ( tl ) ; 

sprintf ( tl, "%s\\slconf ig.lck" , (LPCTSTR) ScriptPath ); 
DeleteFile ( tl ) ; 

INIFileWrapper slini ( "slmgr.ini", true ); 
CString It = LastPage; 

slini .SetValue { "LastTab", It, "Defaults" ); 
slini . Close { ) ; 

OnCancel ( ) ; 

} 

extern CString On S a ve Command; 
void CScriptMDlg: :OnSavescript ( ) 

{ 

char temps2 [2 56] ; 

sprintf ( temps2, " %s\\slogic . bat " , (LPCTSTR) ScriptPath ); 

CFile* nf; 
CFileStatus cfs; 

CTime CT = CTime : : GetCurrentTime () ; 

if( (GetFileAttributes ( temps2 ) != OxFFFFFFFF) && ( (GetFileAttributes ( 
temps2 ) Sc FILE_ATTRIBUTE_DIRECTORY) ==0) ) 
{ 

nf = NULL; 



nf = new CFile{ temps2, CFile : : modeReadWrite ); 



if ( nf 1= NULL ) 
{ 

nf - >GetStatus ( cfs ); 
cf s . m_mtime = CT; 
delete nf ; 

CFile: :SetStatus ( temps2 , cfs ); 

} 

} 

ForceDirty = false; 

if( ExitState == EXIT_NOSAVE ) 
{ 

ExitState = EXIT_NOPUB; 
m_EB. Remove Image ( FALSE ); 

m_EB.LoadBitmap { MAKEINTRESOURCE ( IDB_YELLOW ), FALSE ); 
m_EB . Invalidate ( ) ; 

} 

Repl = false; 

ForceDirty = false; 

S .SaveScript ( ) ; 

m_SS . EnableWindow ( FALSE ) ; 

S .SaveScript { "sltest.val" ); 

if{ OnSaveCommand != ) 

{ 

system ( (LPCTSTR) OnSaveCommand ); 

} 

dirty = false; 



void CScriptMDlg: :OnClose { ) 
{ 

int r = IDOK; 
int dir = true; 
if( isDirtyO ) 

if( (r = MessageBox( ResString( IDS_SAVE ), ResString( IDS_SLMGR ), 
MB_YESNOCANCEL | MB_ICONWARNING ) ) == IDYES ) 
{ 

if( ExitState == EXIT_NOSAVE ) 
{ 

ExitState = EXIT_NOPUB; 
m_EB. Remove Image ( FALSE ); 

m_EB.LoadBitmap( MAKEINTRESOURCE ( IDB_YELLOW ), FALSE ); 
m_EB. Invalidate ( ) ; 

} 

dir = true; 



Repl = false; 
ForceDirty = false; 
S . SaveScript ( ) ; 
m_SS.EnableWindow{ FALSE ); 
S . SaveScript ( "sltest.val" ); 
if( OnSaveCommand != "" ) 

{ 

system ( (LPCTSTR) OnSaveCommand ); 

} 

} 

else 

{ 

dir = false; 

} 

if( r == IDCANCEL ) return; 

CString SP = ScriptPath; 
SP.MakeUpper { ) ; 

// if{ iRepl ScSc (SP. Right { strlen{ " Export\\Scripts " ) ) = = 
"EXPORTWSCRIPTS" ) ) 

// if ( dir ScSc !Repl ) 

if( ExitState == EXIT_NOSAVE || ExitState EXIT__NOPUB ) 

if( GetFileAttributes ( (LPCTSTR) (ScriptPath + "\\repl.bat") ) != 

OxFFFFFFFF ) 

if( ScriptPath. Right ( strlen( " import\\scripts " ) ) . CompareNoCase ( 
" importWscripts " ) != 0 ) 

{ 

if( (r = MessageBox{ ResString{ IDS_REPL ), ResString( IDS_SLMGR ), 
MB_YESNOCANCEL | MB_ICONWARNING ) ) == IDYES ) 
{ 

OnReplbatch ( ) ; 

} 

} 

if ( r == IDCANCEL ) 
{ 

return; 

} 

CloseHandle ( ScriptFileHandle ); 
char tl [256] ; 

sprintf( tl, "%s\\sltest .val" , (LPCTSTR) ScriptPath ); 
DeleteFile ( tl ) ; 

sprintf{ tl, "%s\\slconf ig. Ick" , (LPCTSTR) ScriptPath ); 
DeleteFile ( tl ) ; 

INIFileWrapper slini( "slmgr.ini", true ); 
CString It = LastPage; 

slini.SetValue ( "LastTab", It, "Defaults" ); 
slini . Close ( ) ; 



CDialog: :OnClose() ; 
PostMessage ( WM_QUIT ) ; 

} 

#include "PickPath.h" 
#include "PW3.h" 

extern Script S; 

int GetMonths ( CString& f n ) 

{ 

int p = fn. ReverseFind ( '\\' ); 
if{ p -1 ) p = 0; 
CString year = f n . Mid (p+1 , 4 ) ; 
CString month = f n .Mid {p+5 , 2 ) ; 

char* tcp; 

// MessageBox( NULL, fn, year, MB_OK ); 

int ret = 12 * ( strtol ( (LPCTSTR) year , &tcp, 10 ) ) ; 
ret += (strtol ( (LPCTSTR)month, &tcp, 10) ) ; 

return ret; 

} 

void CScriptMDlg : lOnReviewlog ( ) 

{ 

// New ActiveX Calendar Chooser 

LogView* LV = NULL; 
MList* ML = NULL; 
PickD2* PD = NULL; 
PickPath* PP = NULL; 
char temps [256]; 
int x; 

S . RetrievePwoDrive ( "LogShare", LogPath ); 

if( LogPath.GetLengthO > 2 ) 
{ 

if( LogPath [LogPath. GetLength 0 -1] == •$' 
LogPath[LogPath.GetLength() -2] == ) 

{ 

LogPath = LogPath. Left ( LogPath . GetLength ()- 1 ); 

} 

} 

if( GetFileAttributes { (LPCTSTR) LogPath ) == OxFFFFFFFF ) 
{ 

PP = new PickPath 0; 



PP->VerifyPath = true; 



PP->CheckForFile = false; 
PP- >VerifyReadAccess = false; 

if ( nosave ) 

{ 

sprintf( temps, ResString{ IDS_FIND_LOGS ) ) ; 

} 

else 

{ 

sprintf( temps, ResString ( IDS_INVALID_LOG ), 
(LPCTSTR) LogPath ); 
} 

PP->m_Message = temps; 

if( PP->DoModal 0 1= IDCANCEL ) 
{ 

LogPath = PP->m_Path; 
if { 1 nosave ) 

{ 

if( MessageBox( ResString { IDS_UPDATE_LOG ), ResString ( 
IDS_UPDATE_SCRIPT ) , MB_YESNO ) == IDYES ) 

{ 

S . SetPwoDrive ( "LogShare" , LogPath, 

HEADING_LOGGING ) ; 

} 

} 

} 

else 

{ 

return; 

} 

delete PP; 

} 

CString LP; 
LP = LogPath; 

if( LP[LP.GetLength() -1] != ' \\ ' ) LP += ' \\ ' ; 

CString Pre = LP; 

LP += "* . *" ; 

WIN32_FIND_DATA wfd; 
HANDLE fd; 

fd = FindPirstPile ( (LPCTSTR) LP, &wfd ); 

bool Purge = true; 
bool Asked = false; 



PW3* PWD=NULL; 



if( fd != INVALID_HANDLE__VALUE ) 
{ 

bool done = 1 ; 
CFile* nf; 
CFileStatus cfs; 

CTime CT = CTime : : GetCurrentTime ( ) ; 
int logage; 

while ( done && Purge ) 

{ 

if{ (GetFileAttributes { Pre+wf d . cFileName ) != OxFFFFFFFF) && 
{ (GetFileAttributes ( Pre+wf d. cFileName ) & FILE_ATTRIBUTE_DIRECTORY) == 0) ) 
{ 

nf = new CFile( Pre+wf d . cFileName , CFile : : modeRead ); 

CString fn = Pre+wf d . cFileName ; 
fn.MakeUpper ( ) ; 

// if{ fn.GetLengthO == 12 ) 

if{ fn. Right (4) == ".CSV" ) 

{ 

// CTimeSpan ts; 

// nf ->GetStatus { cfs ); 

// ts = CT - cfs.m_ctime; 



S .RetrieveNumber ( "RetainLogFileMonths " , logage 



) ; 



// char tes [1024] ; 

// sprintf( tes, "%s %i %i", (LPCTSTR) fn, GetMonths ( 

fn ), (CT.GetMonthO + (CT.GetYear ( ) *12) ) ); 

// MessageBox{ tes, "HI", MB_OK ); 

if ( ( ( (CT.GetMonth()+ (CT.GetYear 0*12) ) - 
GetMonths { f n ) ) > logage) (logage > 0) ) 

{ 

if ( Purge && lAsked) 

{ 

Asked = true; 

if( MessageBox( ResString( 
IDS_OLD_LOGS ), ResString ( IDS_PURGE_LOGS ), MB_YESNO ) == IDNO ) 

{ 

Purge = false ; 

} 

else 

{ 

PWD = new PW3 ; 

PWD->Create( IDD_PLEASEWAIT3 ); 

} 



} 

nf - >Close ( ) ; 
if( Purge ) 

{ 

DeleteFile( Pre+wf d . cFileNarae ) ; 
if( MessageBox( Pre+wf d. cFileName, 

, MB_OKCANCEL ) == IDCANCEL ) return; 

} 

} 

} 

if( nf ) 
delete nf; 

} 

done = FindNextFile ( fd, &:wfd ); 

} 

} 

if ( PWD != NULL ) PWD- >DestroyWindow ( ) ; 
PD = new PickD2 ( ) ; 

while ( PD->DoModal 0 1= IDCANCEL ) 
{ 

SetCursor( LoadCursor ( NULL, IDC_WAIT ) ); 

LV = new LogView ( ) ; 

f or ( x=0 ;x<PD- >f names ;x++ ) 

{ 

sprintf ( LV->fnlist [x] , "%s", PD- >f nlist [x] ); 

} ^ 

LV->f names = PD- >f names; 
char temps [256] ; 
LV->DoModal 0 ; 

SetCursor( LoadCursor ( NULL, IDC_ARROW ) ); 
delete LV; 

}; 

delete PD; 
return; 

/* Old Style Month List 
ML = new MList { ) ; 



if( ML == NULL ) MessageBox( "N", "N" , MB_OK ); 

if{ ML->DoModal 0 == -1 ) MessageBox( "X", "X" , MB_OK ); 

if( ML->F[0] 0 ) 

{ 

delete ML; 
return; 

} 

LV = new LogViewO ; 

sprintf( LV->OpenFile; "%s% ML->F ); 

LV->DoModal {) ; 

delete ML; 
delete LV; 

} 

//void CScriptMDlg: :OnNtvars ( ) 
//{ 

//S .UpdateSheet2 ( PS2 ); 

//PS2 .DoModal {) ; 

//S .UpdateScript2 ( PS2 ); 

//if{ isDirty( ) ) m_SS . EnableWindow ( TRUE ); 

//} 

#include "EditCustomScripts .h" 
void CScriptMDlg: : OnCustomscript { ) 

{ 

EditCustomScripts ecs; 

ecs . DoModal { ) ; 

if( isDirty( ) ) 
{ 

ExitState = EXIT_NOSAVE; 
m_EB . Remove Image { FALSE ); 

m_EB.LoadBitmap { MAKE I NTRE SOURCE ( IDB_RED ), FALSE ); 

m_EB. Invalidate {) ; 

m_SS. EnableWindow ( TRUE ); 

} 

/* 

DWORD ret; 



if ( NotepadHandle == NULL ) 
{ 



ret = STILL_ACTIVE+1; 

} 

else 

{ 

GetExitCodeProcess ( NotepadHandle , &ret ); 

} 



if ( ret != STILL_ACTIVE ) 
{ 

char temps [256]; 
char spath [MAX_PATH] ; 

if ( IGetShortPathName ( (LPCTSTR) ScriptPath, spath, MAX_PATH ) ) 
{ 

sprintf( spath, ■'%s", (LPCTSTR) ScriptPath ); 

} 

sprintf{ temps, " %s\\SLCustoml . KIX" , spath ); 
char spath2 [MAX_PATH] ; 

if( IGetShortPathName { (LPCTSTR) TextED, spath2 , MAX_PATH ) ) 
{ 

sprintf( spath2, "%s", (LPCTSTR) TextED ); 

} 

NotepadHandle = (HANDLE) _spawnlp ( _P_NOWAIT, spath2 , spath2 , temps, 

NULL ) ; 

dirty = true; 

if{ ExitState == EXIT_OK ) 
{ 

ExitState = EXIT_NOPUB; 
m_EB . Removelmage ( FALSE ) ; 

m_EB.LoadBitmap( MAKEINTRESOURCE ( IDB_YELLOW ), FALSE ); 
m_EB. Invalidate 0 ; 

} 

} 

*/ 

} 

void CScriptMDlg: :OnStartupbat 0 
{ 

OnToolsSystemoptions ( ) ; 
/* 

DWORD ret; 

if ( NotepadHandle2 == NULL ) 
{ 

ret = STILL_ACTIVE+1; 

} 

else 

{ 

GetExitCodeProcess ( NotepadHandle2 , &ret ); 

} 



if( ret != STILL_ACTIVE ) 
{ 

char temps [256] ; 
char spath [MAX_PATH] ; 

if( IGetShortPathName ( (LPCTSTR) ScriptPath, spath, MAX__PATH ) ) 
{ 

sprintf( spath, "%s", (LPCTSTR) ScriptPath ); 

} 

sprintf ( temps, " %s\\SLCustom2 . KIX" , spath ); 
char spath2 [MAX_PATH] ; 

if( IGetShortPathName ( (LPCTSTR) TextED, spath2 , MAX_PATH ) ) 
{ 

sprintf ( spath2, "%s", (LPCTSTR) TextED ); 

} 

NotepadHandle2 = (HANDLE) _spawnlp ( _P_NOWAIT, spath2 , spath2, 
temps, NULL ) ; 

dirty = true; 

if( ExitState == EXIT_OK ) 
{ 

ExitState = EXIT_NOPUB; 
m_EB .Remove Image ( FALSE ); 

m_EB.LoadBitmap( MAKEINTRESOURCE ( IDB_YELLOW ), FALSE ); 
m_EB . Invalidate ( ) / 

} 

} 

*/ 

} 

CString NextLine { FILE*, int ) ; 

CString ReplBATList [256] ; 

int NumBATs ; 

void LoadBatch( void ) 

{ 

FILE* rbat - f open ( ScriptPath + "\\repl.bat", "r" ) ; 

// m_SourceFolder = "admin$\\system32\\repl\\export\\scripts " ; 

// m_DestFolder = "admin$\\system32\\repl\\import\\scripts " ; 

// m_Flags = "/h /r /d /c /i"; 

// m_Pause = false; 

NumBATs = 0; 

if ( rbat == NULL ) return; 
int 1; 

fseek( rbat, 0, SEEK_END ); 



1 = f tell ( rbat ) ; 

fseek( rbat, 0, SEEK_SET ); 

CString line; 

while ( ftelK rbat ) < 1 ) 
{ 

line = Next Line ( rbat, 1 ); 

// if ( line . Left (strlen ( "pause" )) == "pause" ) m_Pause = true; 

if( line.Lef t (strlen( "set SourcePDC= " ) ) == "set SourcePDC=" ) 
{ 

ReplBATList [NumBATs] = line. Right ( line . Get Length ( ) - 
line . ReverseFind ( '=' ) -1 ); 

if( NumBATs < 2 55 ) NumBATs++; 
// m_SourcePath = line. Right ( line . GetLength ()- strlen (" set 

SourcePDC=" ) ) ; 

} 

if ( line. Left (strlen ( "set sourcef older= " ) ) == "set sourcef older= " 

) 

{ 

// m_SourceFolder = line. Right { line .GetLength {) -strlen ( "set 

sourcef older= " ) ); 

} 

if( line. Left (strlen( "set destf older=" ) ) == "set destfolder=" ) 
{ 

// m_DestFolder = line. Right { line . GetLength {)- strlen (" set 

destfolder=:") ) ; 

} 

if( line. Left {strlen( "set copyf lags= " ) ) == "set copyflags=" ) 

{ 

// m_Flags = line. Right { line . GetLength () -strlen {" set 

copyf lags=" ) ) ; 

} 

if{ line. Left {strlen( "set DestBDC")) == "set DestBDC" ) 
{ 

ReplBATList [NumBATs] = line. Right { line . GetLength () - 
line. ReverseFind ( '=' ) -1 ); 

if { NumBATs < 255 ) NumBATs++; 

} 

} 

} 

#include "daclwrap.h" 
#include "filesec.h" 

bool SetSharePermissions ( char* ShareName, int PermissionSet , char* Server ) 

{ 

CDaclWrap CDW; 



wchar_t sn [MAX__PATH] ; 

mbstowcs( sn, ShareName, strlen( ShareName )+l ); 

CFileSecurity CFS ( sn ); 

CFS.Init {) ; 

ULONG accessl , access2 ; 

// MessageBox( NULL, SysLangAdministrators , SysLangEveryone , MB_OK ) ; 

wchar_t wcEveryone [1024] ; 
wchar_t wcAdmins [1024] ; 

mbstowcs ( wcEveryone, (LPCTSTR) SysLangEveryone , 
SysLangEveryone . Ge tLength 0+1 ) / 

mbstowcs ( wcAdmins, (LPCTSTR) SysLangAdministrators, 
SysLangAdministrators . GetLength 0 +1 ) ; 

if ( PermissionSet == 0 ) 
{ 

CDW.SetAccess ( OPTION_GRANT, wcAdmins, L" . " , GENERIC_ALL ); 
// CDW.SetAccess ( OPTION_GRANT, L" Administrators " , L".", GENERIC_ALL 

) ; 

CFS.SetFS( TRUE, &CDW , FALSE, Server ); 

// CDW.SetAccess ( OPTION_GRANT, wcEveryone, L" . " , GENERIC_READ | 

GENERIC_EXECUTE ) ; 

// CDW.SetAccess { OPTION_GRANT, L"Everyone", L" . " , GENERIC_READ | 

GENERIC^EXECUTE ) ; 

// CFS.SetFS( TRUE, &CDW , FALSE, Server ) ; 



f( PermissionSet == 1 ) 

CDW. SetAccess { OPTION_GRANT , wcAdmins, L" . " , GENERIC_ALL ) ; 
CFS.SetFS( TRUE, ScCDW , FALSE, Server ); 



f ( PermissionSet == 2 ) 

CDW. SetAccess ( OPTION_GRANT , wcEveryone, L" . " , GENERIC_ALL ) ; 
CFS.SetFS( TRUE, &CDW , FALSE, Server ) ; 



CFS .Delnit 0 ; 
return true; 



bool CheckFileWrite ( const char* Server, const char* Share ) 

{ 

CString Path; 



Path += "WW" ; 

Path += Server; 

Path += "W" ; 

Path += Share; 

Path += "Wwrite. tst" ; 

FILE* out = fopen( (LPCTSTR) Path, "w" ); 
if { out == NULL ) return false; 
f close ( out ) ; 
DeleteFile { Path ) ; 
return true; 

} 

void CheckBATPermissions ( void ) 

{ 

int X; 

f or ( x=0;x<NumBATs;x++ ) 

{ 

if( ICheckFileWrite ( (LPCTSTR) ReplBATList [x] , "NETLOGON" ) ) 
{ 

SetSharePermissions ( "NETLOGON", 0, 
(char*) (LPCTSTR) ReplBATList [x] ); 
} 

} 

} 

void CScriptMDlg: :OnReplbatch ( ) 

{ 

char temps [256] ; 

Repl = true; 

LoadBatch ( ) ; 
CheckBATPermissions ( ) ; 

sprintf( temps, " %s\\repl . bat " , (LPCTSTR) ScriptPath ); 
system { temps ); 

if( ExitState == EXIT_NOPUB ) 
{ 

ExitState = EXIT_OK; 
m_EB. Remove Image ( FALSE ); 

m_EB.LoadBitmap ( MAKEINTRESOURCE ( IDB_GREEN ), FALSE ); 
m_EB . Invalidate { ) ; 

} 

} 

void CScriptMDlg: : OnEditreplbat ( ) 

{ 

DWORD ret; 



if( NotepadHandle3 == NULL ) 
{ 

ret = STILL_ACTIVE+1; 

} 

else 

{ 

GetExitCodeProcess ( NotepadHandleS , Scret ); 

} 



if( ret != STILL_ACTIVE ) 

{ 

char temps [256] ; 
char spath [MAX_PATH] ; 

if{ IGetShortPathName ( (LPCTSTR) ScriptPath, spath, MAX_PATH ) ) 
{ 

sprintf ( spath, "%s", (LPCTSTR) ScriptPath )/ 

} 

char spath2 [MAX_PATH] ; 

if( IGetShortPathName ( (LPCTSTR) ReplED , spath2 , MAX_PATH ) ) 
{ 

sprintf { spath2, "%s", (LPCTSTR) ReplED ); 

} 

sprintf ( temps, " %s\\Repl . BAT" , spath ); 

NotepadHandleS = (HANDLE) _spawnlp ( _P_NOWAIT; spath2 , spath2 , 
temps, NULL ) ; 

dirty = true; 

} 

} 

void CScriptMDlg: lOnBitbut 0 
{ 

ShellExecute ( NULL, "open", 
"http : //www. scriptlogic . com/ support /ManagerRedirect . asp?Version=3 . 03 " , 0,0, 
SW_SHOWNA ) ; 

// system( "start http : ////www .ntscript . com// " ) ; 

} 

void CScriptMDlg: :0nBitmap2 () 

{ 

// char temps [256]; 

// _spawnlp( _P_NOWAIT, "start", "http://www.ntscript.com/", NULL ); 
// system( "start http://www.ntscript.com/" ); 

ShellExecute ( NULL, "open", 
"http : //www. scriptlogic . com/ support/ManagerRedirect . asp?Version=3 . 03 " , 0,0, 
SW_SHOWNA ) ; 
} 

void CScriptMDlg: :OnTimer (UINT nIDEvent) 

{ 

// TODO: Add your message handler code here and/or call default 



if ( nIDEvent == 1 ) 
{ 

if ( ScriptPath. Right ( strlen( " import\\scripts " ) ) . CompareNoCase { 
"importWscripts" ) 1= 0 ) 
{ 

if( GetFileAttributes ( (LPCTSTR) (ScriptPath + "\\repl.bat") ) 

== OxFFFFFFFF ) 

{ 

if { runbenabled ) 

{ 

runbenabled = false; 
UpdateData ( TRUE ) ; 
m_runrb.EnableWindow( FALSE ); 
UpdateData ( FALSE ) / 

) 

} 

else 

{ 

if { I runbenabled ) 

{ 

runbenabled = true; 
UpdateData ( TRUE ) ; 
m_runrb.EnableWindow{ TRUE ); 
UpdateData ( FALSE ) ; 

} 

} 

} 

Af xGetApp ( ) - >0nldle { 0 ) ; 

} 

CDialog: : OnTimer (nIDEvent ) ; 

} 

#include "netbrowse . h" 
#include "SuperBrowse . h" 

void CScriptMDlg : : OnTestBrowse ( ) 

{ 

SuperBrowse SB; 

SB. Target = TARGE T_GROU P ; 

SB.DoModal 0 ; 

} 

extern CScriptMApp theApp; 

void CScriptMDlg: :OnHelp() 
{ 

// theApp. WinHelp ( 0x20066 ); 

HtmlHelp{ NULL, " slmgr . chm" , HH_HELP_CONTEXT, HIDD_SCRI PTM_DIALOG ); 

} 



void CScriptMDlg: :OnFileSave {) 



ForceDirty = false; 
OnSavescript ( ) ; 

void CScriptMDlg: : OnHelpScriptlogicontheweb { ) 
OnBitbut 0 ; 

void CScriptMDlg: : OnHelpContents ( ) 

// theApp.WinHelp ( 0x20066 ); 

HtmlHelp( NULL, "slmgr.chm", HH_HELP_CONTEXT , HIDD_SCRIPTM_DIALOG ); 

void CScriptMDlg: : OnEditCustomscript ( ) 
OnCustomscript { ) ; 

void CScriptMDlg: : OnEditCustomscript2 () 
OnStartupbat () ; 

void CScriptMDlg: : OnEditReplicationbatch ( ) 
OnEditreplbat ( ) ; 

void CScriptMDlg: : OnEdi tScriptlogicconf igurat ion ( ) 
OnButtonl 0 ; 

void CScriptMDlg: :OnFileExit 0 
OnClose { ) ; 

void CScriptMDlg: : OnFileReplicate ( ) 
OnReplbatch ( ) ; 

void CScriptMDlg: :OnViewLogs 0 
OnReviewlog ( ) ; 

void CScriptMDlg: : OnHelpAboutscript logic ( ) 
CAboutDlg cad; 



cad.m_Company = CompanyName ; 
cad.m_Key = RegKey; 
cad .m_VerInf o = Tn_Top; 
cad .m_UserInf o = UserLic; 

cad.DoModal () ; 

} 

void CScriptMDlg: : OnHelpRegister ( ) 
{ 

ShellExecute ( NULL, "open", "register.exe", 0,0, SW_SHOWNA ) ; 

} 

#include " ValDef aults . h" 

void CScriptMDlg: :OnEditValidationdef aults ( ) 

{ 

ValDefaults vd; 
vd.DoModal {) ; 

} 

BOOL CScriptMDlg: :OnHelpInfo (HELPINFO* pHelpInfo) 
{ 

HtmlHelp( NULL, " slmgr . chm" , HH_HELP_CONTEXT, HIDD_SCRIPTM_DIALOG ); 

return true; 

// return CDialog : : OnHelpInf o (pHelpInf o) ; 
} 

void CAboutDlg: :WinHelp (DWORD dwData, UINT nCmd) 
{ 

HtmlHelp{ NULL, "slmgr. chm", HH_HELP_CONTEXT, HIDD_ABOUTBOX ) ; 

} 

BOOL CAboutDlg: : OnHelpInf o (HELPINFO* pHelpInfo) 
{ 

HtmlHelp( NULL, "slmgr. chm", HH_HELP_CONTEXT, HIDD_ABOUTBOX ) ; 
return true; 

} 

#include "EditTargetList . h" 

void CScriptMDlg: :OnAddlocat ion ( ) 

{ 

EditTargetList etl; 

etl .DoModal () ; 

UpdateData ( TRUE ) ; 

est ring m_Loc = m_Location; 



m LocationC.ResetContent 0 ; 



f or ( int x=0 ;x<Targets ;x++ ) 

{ 

m_LocationC . AddString { TargetList [x] ) ; 

} 

if ( m_LocationC. FindString ( -1, m_Loc ) == LB_ERR ) 

{ 

m__LocationC.SetCurSel ( 0 ); 
UpdateData ( FALSE ) ; 
UpdateData ( TRUE ) ; 
Def aultTarget = m_Location; 
SaveTargetList () ; 

} 

else 

{ 

m_Location = m_Loc; 

} 

UpdateData ( FALSE ) ; 



void CScriptMDlg: : OnSelchangeCombo2 ( ) 

{ 

int r; 

int dir = true; 
if{ isDirtyO ) 

if{ (r - MessageBox( ResString( IDS_SAVE ), ResString( IDS_SLMGR ), 
MB_YESNOCANCEL | MB_ICONWARNING ) ) == IDYES ) 
{ 

dir = true; 
Repl = false; 

if( ExitState == EXIT_NOSAVE ) 
{ 

ExitState = EXIT_NOPUB; 
m_EB . Remove I mage ( FALSE ) ; 

m_EB.LoadBitmap ( MAKEINTRESOURCE ( IDB_YELLOW ), FALSE ); 
m_EB . Invalidate { ) ; 

} 

ForceDirty = false; 
S . SaveScript ( ) ; 
m_SS.EnableWindow{ FALSE ); 
S .SaveScript ( "sltest.val" ); 
if( OnSaveCommand != "" ) 

{ 

system ( (LPCTSTR) OnSaveCommand ); 

} 

} 



else 

{ 

dir = false; 

} 

if( r == IDCANCEL ) return; 

CString SP = ScriptPath; 
SP.MakeUpper { ) ; 

// if( !Repl (SP. Right ( strlen( "Export\\Scripts " ) ) == 
"EXPORTWSCRIPTS" ) ) 

// if { dir ScSc !Repl ) 

if( ExitState EXIT_NOSAVE || ExitState == EXIT_NOPUB ) 

if( GetFileAttributes ( (LPCTSTR) {ScriptPath + "\\repl.bat") ) !- 

OxFFFFFFFF ) 

if{ ScriptPath. Right ( strlen( " import\\scripts " ) ) . CompareNoCase ( 
"importWscripts" ) 1= 0 ) 

{ 

if{ (r = MessageBox( ResString( IDS_REPL ), ResString( IDS_SLMGR ), 
MB_YESNOCANCEL | MB_ICONWARNING ) ) == IDYES ) 
{ 

OnReplbatch {) ; 

} 

} 

if ( r == IDCANCEL ) 
{ 

return; 

} 

Repl = true; 
dirty = false; 

CloseHandle { ScriptFileHandle ); 

ExitState = EXIT_OK; 
m_EB. Remove Image ( FALSE ); 

m^EB.LoadBitmap ( MAKEINTRESOURCE ( IDB_GREEN ), FALSE ); 
Tn_EB . Invalidate ( ) ; 



char tl [256] ; 

sprintf( tl, nsWsltest .val" , (LPCTSTR) ScriptPath ); 
DeleteFile ( tl ) ; 

sprintf ( tl, "%s\\slconf ig. Ick" , (LPCTSTR) ScriptPath ); 
DeleteFile ( tl ) ; 

UpdateData ( TRUE ) ; 

char temps [MAX_PATH] ; 

ScriptPath = m_Location; 



sprintf ( temps, "%s\\%s", (LPCTSTR) m_Location, "wtest" ); 



FILE* f = NULL; 
int t = clock { ) ; 

while( f == NULL {clock()-t < (CL0CKS_PER_SEC*5) ) ) 

f = fopen( temps, "w" ) ; 

nosave = false; 
int rook = false; 

if { f == NULL ) 
{ 

MessageBox( ResString{ IDS_PATH_RO ), ResString( IDS_PATH_ERROR ), 
MB_OK I MB_ICONWARNING ) ; 

nosave = true ; 

} 

else 

{ 

f close ( f ) ; 
DeleteFile ( temps ) ; 

sprintf { temps, "%s\\%s", (LPCTSTR) m_Location, " slconf ig . kix" ); 
FILE* f = fopen( temps, "r" ); 

if ( f == NULL ) 
{ 

MessageBox{ ResString( IDS_SCRIPT_NF2 ), ResString( 
IDS_PATH_ERROR ) , MB_OK | MB_ICONWARNING ) ; 

nosave = true; 

} 

else 

{ 

f close ( f ) ; 

rook = ( I (GetFileAttributes { (LPCTSTR) ScriptPath ) & 
FILE_ATTRIBUTE_DIRECTORY ) || (GetFileAttributes ( { LPCTSTR) ScriptPath ) 
OxFFFFFFFF) || (GetFileAttributes ( (LPCTSTR) ScriptPath ) & 
FILE_ATTRIBUTE_READONLy) ) ; 

if( rook ) 

{ 

MessageBox( ResString( IDS_SEL_INV ), ResString{ 
IDS_PATH_ERROR ) , MB_OK | MB_ICONWARNING ) ; 

nosave = true ; 

} 

} 

} 



if( nosave ) 

{ 

m SUB.EnableWindow( FALSE ) ; 



m_SS.EnableWindow{ FALSE ); 
m_editrb.EnableWindow( FALSE ) ; 
runbenabled - false; 
m_runrb.EnableWindow( FALSE ); 
m_cs.EnableWindow( FALSE ); 
m_bl.EnableWindow{ FALSE ); 

} 

else 

{ 

S . LoadScript ( ) ; 

S .SaveScript ( " SLconf ig . bak" ); 

char tl [256] ; 
char t2 [256] ; 

sprintf{ tl, "%s\\slconf ig.bak" , (LPCTSTR) ScriptPath ); 
sprintf{ t2, " %s\\sltest . val " , (LPCTSTR) ScriptPath ); 
CopyFile( tl, t2, FALSE ); 

char cname[2 56]; 
char unaTne[2 56] ; 
sprintf ( cname, "" ); 
sprintf( uname, ); 

GetEnvironmentVariable ( "UserName", uname, 256 ); 
GetEnvironmentVariable { "ComputerName " , cname, 256 ); 

sprintf { temps, " %s\\slconf ig . Ick" , ScriptPath ); 
if( GetFileAttributes ( temps ) != OxFFFFFFFF ) 

{ 

FILE* f = fopen{ temps, "r" ); 

CString ts2 = ResString{ IDS_ANOTHERADMIN )/ 

if ( f == NULL ) 

{ 

} 

else 
{ 

fseek{ f, 0, SEEK_END ); 
. int 1 = ftell { f ) ; 
fseek( f , 0, SEEK_SET ) ; 
ts2 = ""; 

f or ( int x=0;x<l;x++ ) 

{ 

ts2 +^ f getc ( f ) ; 

} 

f close { f ) ; 

} 



DWORD br; 

CString ts = ResString( IDS_EDITEDBY1 ); 
t s + = t s 2 ; 

ts += ResString( IDS_EDITEDBY2 ); 

MessageBox( (LPCTSTR) ts, ResString( IDS_WARNING ), MB_OK 

MB_ICONHAND ) ; 



} 

else 

{ 

ScriptFileHandle = CreateFile { temps, GENERIC_WRITE | 
GENERIC_READ, FILE_SHARE_READ , NULL, GREAT E_ALWAYS , FILE_ATTRIBUTE_HIDDEN, NULL 
) ; 

sprintf ( temps, "%s on %s", uname, cname ); 
DWORD bw; 

WriteFile( ScriptFileHandle, temps, strlen( temps ), ficbw, 

NULL ) ; 

CloseHandle( ScriptFileHandle ); 

} 

m_SUB.EnableWindow( TRUE ) ; 
m_SS . EnableWindow { isDirtyO ); 
m_editrb.EnableWindQw{ TRUE ); 
runbenabled = true; 
m_runrb. EnableWindow ( TRUE ); 
m_cs .EnableWindow { TRUE ); 
m_bl . EnableWindow { TRUE ) ; 

} 

} 

void CScriptMDlg: : OnDropdownCombo2 () 
{ 

UpdateData ( TRUE ) ; 
m_Location = " ; 

} 

void CScriptMDlg: : OnToolsEditscriptlist { ) 

{ 

OnAddlocation ( ) ; 

} 

void CScriptMDlg: rOnASmgr {) 

{ 

DWORD ret; 

if( ASHandle == NULL ) 
{ 

ret = STILL_ACTIVE+1; 

} 

else 

{ 

GetExitCodeProcess ( ASHandle, fcret ); 

} 



if( ret != STILL_ACTIVE ) 

{ 

char temps [256]; 
sprintf { temps, ); 
char sp [MAX_PATH] ; 



while( ASmgrPath.GetLengthO > 0 ASmgrPath[0] == '"' ) ASmgrPath 
= ASmgrPath . Right { ASmgrPath.GetLengthO - 1 ); 

while ( ASmgrPath.GetLengthO > 0 
ASmgrPath [ASmgr Path. Ge tLength 0 -1] == ) ASmgrPath = ASmgrPath . Left ( 

ASmgrPath.GetLengthO - 1 ) ; 

if{ IGetShortPathName ( (LPCTSTR) ASmgrPath, sp, MAX_PATH ) ) 
{ 

sprintf( sp, "%s", (LPCTSTR) ASmgrPath ); 

} 

ASHandle = (HANDLE) _spawnlp ( _P_NOWAIT, sp, sp, temps, NULL ); 
dirty = true; 

} 

} 

void CScriptMDlg: : OnToolsAutosharemanager ( ) 
{ 

if ( ASmgrPath != ) 
OnASmgr ( ) ; 

} 



#include "EditorPaths . h" 

void CScriptMDlg: : OnOptionsReplmanagerpath { ) 

{ 

EditorPaths ep; 
ep.DoModal { ) ; 



if{ GetFileAttributes { ASmgrPath ) 1= OxFFFFFFFF ) 
{ 

m_ASmgr .EnableWindow( TRUE ); 

} 

else 

{ 

m_ASmgr . EnableWindow ( FALSE ); 

} 

/* 

CFileDialog cfd( TRUE, NULL, NULL, OFN_HIDEREADONLY , "Program 
Files I *. exe ;* .bat com| Executable Files (*. exe ) | *. exe | Batch Files 
(* .bat) I * .bat | COM Files (* .com) | * .com | All Files (* . *) | * . * | | " ) ; 

TCHAR cPath[MAX_PATH] ; 

GetCurrentDirectory ( MAX_PATH, cPath ); 
UpdateData( TRUE ); 



if( cfd.DoModal 0 1= IDCANCEL ) 
{ 

SetCurrentDirectory ( cPath ) ; 



INIFileWrapper slini ( "slmgr.ini", true ); 
ReplED = cfd.GetPathName {) ; 



char temps [iyiAX_PATH] ; 

GetShortPathName{ (LPCTSTR) ReplED , temps, MAX_PATH ); 
ReplED = temps; 

slini .SetValue { "Editor", ReplED, "Editors" ) ; 
UpdateData ( FALSE ) ; 

} 

SetCurrentDirectory ( cPath ); 
*/ 

} 

void CScriptMDlg: : OnOpt ionsScripteditor ( ) 
{ 

CFileDialog cfd( TRUE, NULL, NULL, OFN_H IDE READONLY, "Program 
Files I *. exe ;* .bat ;*. com I Executable Files {*.exe) |*.exe|Batch Files 
{*.bat) I*. bat I COM Files {*.com) |*. com] All Files (*.*) |*.*| | " ) ; 

TCHAR cPath[MAX_PATH] ; 

GetCurrentDirectory ( MAX_PATH, cPath *) ; 

UpdateData ( TRUE ); 

if( cfd.DoModal {) 1= IDCANCEL ) 
{ 

SetCurrentDirectory ( cPath ) ; 

INIFileWrapper slini ( "slmgr.ini", true ); 
TextED = cf d.GetPathName 0 ; 

char temps [MAX_PATH] ; 

if( IGetShortPathName { (LPCTSTR) TextED , temps, MAX_PATH ) ) 
{ 

sprintf( temps, "%s", (LPCTSTR) TextED ) ; 

} 

TextED = temps; 

slini .SetValue ( "TextEditor " , TextED, "Editors" ); 
UpdateData { FALSE ) ; 

} 

SetCurrentDirectory ( cPath ) ; 

} 

void CScriptMDlg: :OnUpdateFileSave (CCmdUI* pCmdUI) 
{ 

pCmdUI->Enable ( isDirtyO ); 

} 



bool FoundSM; 

BOOL CALLBACK FindServiceManager ( HWND hwnd, LPARAM Ip ) 
{ 

char buf [1024] ; 

GetWindowText ( hwnd, buf, 1024 ); 

CString Title = "ScriptLogic Service Manager" ; 
CString Text = buf; /^•• 

Text = Text.Left( Td/tle . GetLength ( ) ); 

if ( Text == Title ) 
{ 

ShowWindow( hwnd, SW_SHOWNORMAL ); 
SetForegroundWindow ( hwnd ); 
FoundSM = true; 
return false; 

} 

return true; 

} 

void CScriptMDlg: : OnServiceManager ( ) 
{ 

DWORD ret; 
FoundSM = false; 

EnumWindows ( FindServiceManager, 0 ); 

if{ FoundSM ) return; 

if{ SMHandle == NULL ) 
{ 

ret = STILL_ACTIVE+1; 

} 

else 

{ 

GetExitCodeProcess ( SMHandle, &ret ); 

} 



if( ret != STILL_ACTIVE ) 
{ 

char temps [256] ; 
char spath [MAX_PATH] ; 

if{ IGetShortPathName ( (LPCTSTR) ScriptPath, spath, MAX_PATH ) ) 
{ 

sprintf( spath, "%s", (LPCTSTR) ScriptPath ); 

} 

if{ spath [ strlen( spath ) -1 ] 1= 'W ) 
{ 



sprintf { temps, " %s\\repl .bat " , spath ); 

} 

else 

{ 

sprintf ( temps, " %srepl . bat " , spath ); 

} 

char spath2 [MAX_PATH] ; 

if{ IGetShortPathName ( (LPCTSTR) SMED , spath2, MAX_PATH ) ) 
{ 

sprintf ( spath2, "%s", (LPCTSTR) TextED ) ; 

} 

SMHandle = (HANDLE) _spawnlp ( _P_NOWAIT, spath2, spath2 , NULL ) 
dirty = true; 

} 

} 

void CScriptMDlg: : OnToolsServicemanager () 

{ 

OnServiceManager ( ) ; 

} 

#include "AssignScript . h" 

void CScriptMDlg: : OnToolsAssignscript ( ) 

{ 

AssignScript AS; 
AS.DoModal 0 ; 

} 

BOOL CAboutDlg: :DestroyWindow() 

{ - 

// TODO: Add your specialized code here and/or call the base class 
return CDialog: : DestroyWindow ( ) ; 



#include " SystemOptions . h" 

void CScriptMDlg: : OnToolsSystemoptions ( ) 

{ 

SystemOptions SO; 
SO.DoModal 0 ; 

if( isDirty( ) ) m_SS . EnableWindow ( TRUE ); 

// if( SO.DidLogoImport ) 

if( ExitState == EXIT_OK ) 

{ 

ExitState = EXIT_NOPUB; 
m_EB . Removelmage ( FALSE ) ; 



m_EB.LoadBitmap( MAKEINTRESOURCE { IDB_YELLOW ), FALSE ) 
m EE . Invalidate 0 ; 



} 



void CScriptMDlg : : OnToolsCustomscriptmanager ( ) 

{ 

OnCustomscript ( ) ; 

} 



